comp.lang.ada
 help / color / mirror / Atom feed
* language wars (results 13 September) last posting
@ 1996-09-13  0:00 Roy Gardiner
  1996-09-13  0:00 ` William Clodius
                   ` (14 more replies)
  0 siblings, 15 replies; 63+ messages in thread
From: Roy Gardiner @ 1996-09-13  0:00 UTC (permalink / raw)



The Language Preference Grid (Friday 13th September 1996)
               1   2   3   4
|------------|---|---|---|---|
| Ada        | 17| 3 | 1 | 0 |
| apl        | 9 | 1 | 1 | 1 |
| C          | 9 | 14| 7 | 6 |
| perl       | 7 | 4 | 2 | 2 |
| C++        | 4 | 5 | 2 | 3 |
| Rexx       | 4 | 1 | 3 | 0 |
| smalltalk  | 4 | 0 | 1 | 0 |
| Ada-95     | 4 | 0 | 0 | 0 |
| pascal     | 3 | 16| 7 | 9 |
| PL/I       | 2 | 5 | 1 | 4 |
| fortran    | 2 | 3 | 4 | 7 | (no level specified)
| J          | 2 | 1 | 2 | 0 |
| fortran-90 | 2 | 1 | 0 | 0 |
| python     | 2 | 0 | 1 | 0 |
| Algol 68   | 2 | 0 | 0 | 0 |
| icon       | 1 | 2 | 0 | 2 |
| scheme     | 1 | 1 | 2 | 0 |
| Assembler  | 1 | 1 | 1 | 6 | (type not stated)
| ObjectRexx | 1 | 1 | 0 | 0 |
| fortran-77 | 1 | 1 | 0 | 1 |
| Ada-83     | 1 | 1 | 0 | 0 |
| VB         | 1 | 1 | 2 | 1 |
| modula-2   | 1 | 0 | 1 | 0 |
| turing     | 1 | 0 | 0 | 0 |
| Forth      | 1 | 0 | 0 | 0 |
|------------|---|---|---|---|
| prolog     | 0 | 2 | 2 | 0 |
| awk        | 0 | 2 | 0 | 1 |
| SNOBOL     | 0 | 1 | 0 | 1 |
| lisp       | 0 | 1 | 3 | 2 |
| bourne shell 0 | 1 | 0 | 1 |
| modula-3   | 0 | 1 | 0 | 1 |
| modula     | 0 | 1 | 0 | 2 |
| X86 BAL    | 0 | 1 | 1 | 2 |
| ML         | 0 | 1 | 0 | 0 | (is this the same as ML/1?)
| MATLAB     | 0 | 1 | 0 | 0 |
| Spitbol    | 0 | 1 | 0 | 0 |
| cybil      | 0 | 1 | 0 | 0 |
| cms pipelines  | 1 | 0 | 0 |
| bertrand   | 0 | 1 | 0 | 0 |
|------------|---|---|---|---|
| X80 BAL    | 0 | 0 | 2 | 0 |
| ML/1       | 0 | 0 | 1 | 0 |
| BASIC      | 0 | 0 | 2 | 1 |
| orwell     | 0 | 0 | 1 | 0 |
| Bliss      | 0 | 0 | 1 | 0 |
| Pick basic | 0 | 0 | 2 | 0 |
| NetRexx    | 0 | 0 | 1 | 0 |
| simula     | 0 | 0 | 1 | 0 |
| haskel     | 0 | 0 | 1 | 0 |
| algol-60   | 0 | 0 | 1 | 0 |
| COBOL      | 0 | 0 | 1 | 2 |
| tcl/tk     | 0 | 0 | 1 | 0 |
| java       | 0 | 0 | 1 | 1 |
| korn shell | 0 | 0 | 1 | 0 |
| HyperTalk  | 0 | 0 | 1 | 0 |
|------------|---|---|---|---|
| postScript | 0 | 0 | 1 | 2 |
| IDL        | 0 | 0 | 0 | 1 |
| Scan       | 0 | 0 | 0 | 1 |
| KSH        | 0 | 0 | 0 | 1 |
| occam      | 0 | 0 | 0 | 1 |
| ASM /360   | 0 | 0 | 0 | 1 |
| S+         | 0 | 0 | 0 | 1 |
| Clipper    | 0 | 0 | 0 | 1 |
| MC68009ASM | 0 | 0 | 0 | 1 |
| SETL       | 0 | 0 | 0 | 1 |
| DCL        | 0 | 0 | 0 | 1 |
| NewtonScript 0 | 0 | 0 | 1 |

96 responses in all.

One person voted for a language they invented; I could not disallow it 
because it was not their first language

I don't suppose much can be concluded. What surprised me was:

1) How cleanly Ada (not ada, as one correspondent corrected me) won it; 
not only by the number of 1st place votes (especially if you include 
dialects - votes for Ada95 and Ada83 were NOT included in the Ada list), 
but by how few votes were for 2nd or lower place.
2) What an incredible variety of languages are out there.

Some people voted (unprompted) for least favourite:

The Language (least favourite) Grid 
               1   2   3   4
|------------|---|---|---|---|
| C++        | 3 | 0 | 0 | 0 |
| C          | 2 | 0 | 0 | 0 |
| VB         | 1 | 0 | 0 | 0 |
| BASIC      | 1 | 0 | 0 | 0 |
| COBOL      | 1 | 0 | 0 | 0 |
| pascal     | 0 | 1 | 0 | 0 |
| Forth      | 0 | 1 | 0 | 0 |
| X86 BAL    | 0 | 0 | 1 | 0 |

and gave little comments.

-- I try to stay above C level,  I get C sick.

No more votes, please. Interesting comments to newsgroup(s).

Roy Gardiner





^ permalink raw reply	[flat|nested] 63+ messages in thread
* Re: Friday 13th, try it yourself (was Language Wars..)
@ 1996-09-25  0:00 Barrie Walker
  0 siblings, 0 replies; 63+ messages in thread
From: Barrie Walker @ 1996-09-25  0:00 UTC (permalink / raw)



In article <R.521pfp$kec@ns.ccsn.edu>, mose@ns.ccsn.edu says...
>
>Reposting article removed by rogue canceller.
>
>Clinton Pierce <cpierce1@ford.com> writes:
>
>>See for yourself if the "Friday the 13th" thing is just a UL.  If you trust
>>UNIX's 'cal' program, and that it does the Right Thing with Leap Years, the
>>Gregorian/Julian switch etc..etc... This Perl script will show you the 
Truth:
>
>   I decided to write a script of my own for Solaris 2.4 and perl
>5.003 which calls cal for 1066 to 1996 and rips out the Fridays.  The
>following is the number of times a particular day of the month falls
>on a Friday.  The results are pretty evenly distributed, i.e. it is an
>Urban Legend.

I think you have caught hold of the wrong end of the stick.

The observation doesn't claim
1 that 13ths have a monopoly on Fridays -
 6ths, 20ths and 27ths fall on just as many Fridays.
2 that the uneven distribution is restricted to Fridays -
 months are more likely to begin (1sts) on Sundays.
3 to work with anything but the current inplementation
 of the Gregorian calendar.

Try the following script and tell me what's wrong with it.
It suggests(?) that the 13th's distribution over the cycle is exactly:
       Sun     Mon     Tue     Wed     Thu     Fri     Sat
13     687     685     685     687     684   * 688     684
Now this is only _one_ (1) more than Sunday or Wednesday gets but "more" it 
certainly is.

#! perl

#start somewhere
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime( 0);

for ($y=0; $y<400; $y++)
{        
  printf "%d\r", $y;
  for ($m=1; $m<=12; $m++)
  {
    $D = &days( $m, $y+1900+$year);
    for ($d=1; $d<=$D; $d++)
    {
      $k{$d,$wday}++;
      $wday++;
      $wday %= 7;
    }
  }
}

sub days
{
  local( $m, $y) = @_;
  return 29 if $m==2 && (!($y%400) || ($y%100) && !($y%4));
  (31,28,31,30,31,30,31,31,30,31,30,31)[$m-1];
}


$D = (reverse sort values %k)[0];
print "$D\n";
for (keys %k)
{
  $k{$_} = '* '.$k{$_} if $k{$_}==$D;
}

printf "%2s %7s %7s %7s %7s %7s %7s %7s\n", "", 
"Sun","Mon","Tue","Wed","Thu","Fri","Sat";
for ($d=1; $d<=31; $d++)
{
  printf "%2s %7s %7s %7s %7s %7s %7s %7s\n", $d, $k{$d,0}, $k{$d,1}, 
$k{$d,2}, $k{$d,3}, $k{$d,4}, $k{$d,5}, $k{$d,6};
}

-- 
Barrie
Edinburgh, Scotland                       http://www.csl.co.uk





^ permalink raw reply	[flat|nested] 63+ messages in thread
end of thread, other threads:[~1996-10-03  0:00 UTC | newest]

Thread overview: 63+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-09-13  0:00 language wars (results 13 September) last posting Roy Gardiner
1996-09-13  0:00 ` William Clodius
1996-09-13  0:00   ` Peter Seebach
1996-09-21  0:00     ` Robert Dewar
1996-09-21  0:00     ` Robert Dewar
1996-09-16  0:00   ` Robert Fahey
1996-09-18  0:00 ` Norman H. Cohen
1996-09-18  0:00 ` James Giles
1996-09-18  0:00 ` Luke Chao
1996-09-18  0:00 ` Andrew Gierth
1996-09-18  0:00 ` James Giles
1996-09-19  0:00 ` Norman H. Cohen
1996-09-19  0:00 ` Daniel J. Long
1996-09-21  0:00   ` Ken Pizzini
1996-09-24  0:00     ` Art Schwarz
1996-09-26  0:00       ` Ken Pizzini
1996-09-29  0:00         ` Paul Gilmartin
1996-09-26  0:00       ` Matthew D. Healy
1996-09-29  0:00         ` Randy MacDonald
1996-10-03  0:00           ` galina.kasminskaya
1996-10-03  0:00             ` Dave Tholen
1996-09-21  0:00   ` Ken Pizzini
1996-09-19  0:00 ` Andrew Gierth
1996-09-20  0:00 ` Friday 13th, try it yourself (was Language Wars..) Clinton Pierce
1996-09-21  0:00   ` Russell Mosemann
1996-09-25  0:00     ` Barrie Walker
1996-09-26  0:00       ` Jim Shapiro
1996-09-25  0:00     ` Ken Pizzini
1996-09-25  0:00       ` Results of my test: Re: Friday 13th, try it yourself Lee Crites
1996-09-25  0:00         ` William Clodius
1996-09-27  0:00         ` Dik T. Winter
     [not found]           ` <52qpqt$1b3l@ilx018.iil.intel.com>
1996-10-02  0:00             ` Dik T. Winter
1996-10-02  0:00             ` Ken Pizzini
1996-09-26  0:00       ` Dr John Stockton
1996-09-26  0:00         ` Dr John Stockton
1996-09-26  0:00         ` Lee Crites
1996-09-26  0:00           ` Adam Beneschan
1996-09-27  0:00             ` Glen Clark
1996-09-26  0:00           ` John Winters
1996-09-26  0:00           ` Daan Sandee
1996-09-26  0:00             ` Jeff Drummond
1996-09-30  0:00               ` Ray Dunn
1996-09-27  0:00           ` CHI Research, Inc. 
1996-09-27  0:00             ` Lee Crites
1996-09-28  0:00               ` John Winters
1996-09-30  0:00               ` Adam Beneschan
1996-10-01  0:00             ` Mike McCarty
     [not found]         ` <199609302101.JAA04610@kauri.vuw.ac.nz>
1996-09-30  0:00           ` Lee Crites
1996-09-21  0:00   ` Friday 13th, try it yourself (was Language Wars..) Russell Mosemann
1996-09-23  0:00   ` Matthew D. Healy
1996-09-23  0:00     ` Dik T. Winter
1996-09-25  0:00     ` Paul Gilmartin
1996-09-20  0:00 ` language wars (results 13 September) last posting John Girash
1996-09-20  0:00   ` John Girash
1996-09-22  0:00 ` Friday 13th, try it yourself (was Language Wars..) Dr John Stockton
1996-09-23  0:00 ` Randy MacDonald
1996-09-23  0:00   ` Dik T. Winter
1996-09-25  0:00   ` John Harper
1996-09-25  0:00     ` jupiter
1996-09-23  0:00 ` Dr John Stockton
1996-09-24  0:00 ` language wars (results 13 September) last posting Andrew Gierth
1996-09-24  0:00   ` Art Schwarz
  -- strict thread matches above, loose matches on Subject: below --
1996-09-25  0:00 Friday 13th, try it yourself (was Language Wars..) Barrie Walker

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox