Mercurial > repo
comparison interps/c-intercal/pit/hail_mary.doc @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
| author | HackBot |
|---|---|
| date | Sun, 09 Dec 2012 19:30:08 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 995:6883f5911eb7 | 996:859f9b4339e6 |
|---|---|
| 1 | |
| 2 From: cornet@OTech.fgg.EUR.nl (Jan-Pieter Cornet) | |
| 3 Newsgroups: alt.folklore.computers,alt.lang.intercal | |
| 4 Subject: Re: 90% Cobol?!? | |
| 5 Date: 30 Sep 1994 12:03:23 +0100 | |
| 6 Organization: Education Technology, Erasmus University, Rotterdam, The Netherlands | |
| 7 Message-ID: <36gr9r$k4i@gaia.otech.fgg.eur.nl> | |
| 8 | |
| 9 [note -- alt.lang.intercal added to newsgroups line. rec.humor removed. | |
| 10 no longer necessary, the added group is also a humor group :] | |
| 11 | |
| 12 In article <36evl6$e3m@fenris.hiof.no>, | |
| 13 Gunnar Horrigmo <gunnar.horrigmo@hiof.no> wrote: | |
| 14 >Once upon a time Adam Felson scribbled: | |
| 15 >>>Forgive me father for I have programmed in COBOL. | |
| 16 >>>>You are forgiven. Go now and sin no more. | |
| 17 >>>Thank you father. Whats that? 1,000,000 Hail Mary's? | |
| 18 >>>[COBOL 1,000,000 Hail-Mary's removed] | |
| 19 >>FORTH: | |
| 20 > | |
| 21 >>: 1,000,000_hail_mary's @ special characters in word defined | |
| 22 >> 1000 0 DO @ FORTH usually has a 16bit data stack | |
| 23 >> 1000 0 DO | |
| 24 >> hail-mary! | |
| 25 >> LOOP | |
| 26 >> LOOP | |
| 27 >>; | |
| 28 > | |
| 29 >Ok. I'll have a go at ML, since I'm trying to learn that anyway... | |
| 30 > | |
| 31 > function Hail_Mary (int i) | |
| 32 > if i < 1000000 then Hail_Mary(i+1) | |
| 33 > | |
| 34 >Probably way off, but I've just started, so please correct me. | |
| 35 | |
| 36 Fine. You've asked for it, you'll get it. Here it is, 1,000,000 Hail-Mary's | |
| 37 in TriIntercal, which is of course a much better language for this | |
| 38 than ML. | |
| 39 | |
| 40 BTW, there appears to be an anomaly in READING OUT tail variables, since | |
| 41 the READ OUT does a bit reversal instead of (as one might expect in | |
| 42 TriIntercal) a trit reversal. | |
| 43 | |
| 44 Helpful hint: before you run this through ick, change the loop constants | |
| 45 to something sensible. Finding the loop constants is left as an exercise | |
| 46 to the reader :) | |
| 47 | |
| 48 Helpful hint 2: This would not very likely be a winning ICICC entry :) | |
| 49 | |
| 50 [program moved to separate file] | |
| 51 | |
| 52 Have fun, | |
| 53 | |
| 54 -- | |
| 55 Jan-Pieter Cornet | |
| 56 <cornet@otech.fgg.eur.nl> |