Really off topic now... was: Re: Face down, nine-edge first(wherein all is revealed)
Richard A. O'Keefe
ok at atlas.otago.ac.nz
Wed May 10 05:07:42 UTC 2000
Dan Ingalls wrote:
Maybe you can tell me what this does...
INTEGER N(134)/'0','1',132*'0'/,L(2)/'(133',' A1)'/,G/133/,H/266/
DO 1 K=G,17688
IF(K.EQ.K/G*G) WRITE(6,L)(L(2),J=K,17689,H)(N((K-J)/G+2),J=G,K,G)
N(J-K+1)=2**24*MOD((N(J-K+1)-N(1)+(N(J-K)-N(1))/10)/2**23,10)+N(1)
1 IF(MOD(K+1,G).EQ.0.AND.N(J/G+1).LE.N(1)) K=K-G
END
Gets a syntax error, of course. If the line with the WRITE statement
is changed to
IF(K.EQ.K/G*G) WRITE(6,L)(L(2),J=K,17689,H),(N((K-J)/G+2),J=G,K,G)
.................................................^
the program prints powers of two.
More information about the Squeak-dev
mailing list
|