From: "Daniel J. Long" <longdj@cat.com>
Subject: Re: language wars (results 13 September) last posting
Date: 1996/09/19
Date: 1996-09-19T00:00:00+00:00 [thread overview]
Message-ID: <32414A27.14E@cat.com> (raw)
In-Reply-To: 51bv60$8d@pheidippides.axion.bt.co.uk
James Giles wrote (with deletions) :
>
> > Skeptics are invited to write a program to do the calculation for
> > themselves.
>
> Assuming that *you* have done so, please have the courtesy to run it
> 2800 years and note that the 13th is equidistributed in weekdays.
> Then you can come back and apologise. You have to run it more than
> 400 years because you have to go through a complete cycle of exceptions
> to the century rule.
>
> J. Giles
> Ricercar Software
Ok, here is my program, written in Smalltalk, to calculate the
distribution
of Friday the 13ths for a 2800 year period from 1996 to 4795. BTW,
Friday did
turn out to be the most likely 13th.
Dan
| anArray |
anArray := Array new: 7 withAll: 0.
1996 to: 4795 do: [:year |
1 to: 12 do: [:month | | day |
day := (Date newDay: 13 monthNumber: month year: year) weekdayIndex.
anArray at: day put: ((anArray at: day) + 1)]].
anArray inspect
Result: Mon Tues Wed Thur Fri Sat Sun
#(4795 4795 4809 4788 4816 4788 4809)
next prev parent reply other threads:[~1996-09-19 0:00 UTC|newest]
Thread overview: 62+ messages / expand[flat|nested] mbox.gz Atom feed top
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 ` James Giles
1996-09-18 0:00 ` Luke Chao
1996-09-18 0:00 ` Andrew Gierth
1996-09-19 0:00 ` Andrew Gierth
1996-09-19 0:00 ` Norman H. Cohen
1996-09-19 0:00 ` Daniel J. Long [this message]
1996-09-21 0:00 ` Ken Pizzini
1996-09-21 0:00 ` Ken Pizzini
1996-09-24 0:00 ` Art Schwarz
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-26 0:00 ` Ken Pizzini
1996-09-29 0:00 ` Paul Gilmartin
1996-09-20 0:00 ` Friday 13th, try it yourself (was Language Wars..) Clinton Pierce
1996-09-21 0:00 ` Russell Mosemann
1996-09-21 0:00 ` Russell Mosemann
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 ` Ken Pizzini
1996-10-02 0:00 ` Dik T. Winter
1996-09-26 0:00 ` Dr John Stockton
1996-09-26 0:00 ` Lee Crites
1996-09-26 0:00 ` Daan Sandee
1996-09-26 0:00 ` Jeff Drummond
1996-09-30 0:00 ` Ray Dunn
1996-09-26 0:00 ` John Winters
1996-09-26 0:00 ` Adam Beneschan
1996-09-27 0:00 ` Glen Clark
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
1996-09-26 0:00 ` Dr John Stockton
[not found] ` <199609302101.JAA04610@kauri.vuw.ac.nz>
1996-09-30 0:00 ` Lee Crites
1996-09-25 0:00 ` Friday 13th, try it yourself (was Language Wars..) Barrie Walker
1996-09-26 0:00 ` Jim Shapiro
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
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox