996
|
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>
|