Van Eck sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Comal) |
|||
Line 1,186: | Line 1,186: | ||
ECK( 999) = 10 |
ECK( 999) = 10 |
||
ECK(1000) = 136</pre> |
ECK(1000) = 136</pre> |
||
=={{header|Comal}}== |
|||
<lang comal>0010 DIM eck#(0:1000) |
|||
0020 FOR i#:=1 TO 999 DO |
|||
0030 j#:=i#-1 |
|||
0040 WHILE j#>0 AND eck#(i#)<>eck#(j#) DO j#:-1 |
|||
0050 IF j#<>0 THEN eck#(i#+1):=i#-j# |
|||
0060 ENDFOR i# |
|||
0070 ZONE 5 |
|||
0080 FOR i#:=1 TO 10 DO PRINT eck#(i#), |
|||
0090 PRINT |
|||
0100 FOR i#:=991 TO 1000 DO PRINT eck#(i#), |
|||
0110 PRINT |
|||
0120 END</lang> |
|||
{{out}} |
|||
<pre>0 0 1 0 2 0 2 2 1 6 |
|||
4 7 30 25 67 225 488 0 10 136</pre> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |