Van Eck sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BQN) |
Not a robot (talk | contribs) (Add Modula-2) |
||
Line 1,949: | Line 1,949: | ||
{4,7,30,25,67,225,488,0,10,136}</pre> |
{4,7,30,25,67,225,488,0,10,136}</pre> |
||
=={{header|Modula-2}}== |
|||
<lang modula2>MODULE VanEck; |
|||
FROM InOut IMPORT WriteCard, WriteLn; |
|||
VAR i, j: CARDINAL; |
|||
eck: ARRAY [1..1000] OF CARDINAL; |
|||
BEGIN |
|||
FOR i := 1 TO 1000 DO |
|||
eck[i] := 0; |
|||
END; |
|||
FOR i := 1 TO 999 DO |
|||
j := i-1; |
|||
WHILE (j > 0) AND (eck[i] <> eck[j]) DO |
|||
DEC(j); |
|||
END; |
|||
IF j <> 0 THEN |
|||
eck[i+1] := i-j; |
|||
END; |
|||
END; |
|||
FOR i := 1 TO 10 DO |
|||
WriteCard(eck[i], 4); |
|||
END; |
|||
WriteLn(); |
|||
FOR i := 991 TO 1000 DO |
|||
WriteCard(eck[i], 4); |
|||
END; |
|||
WriteLn(); |
|||
END VanEck.</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|Nim}}== |
=={{header|Nim}}== |
||
<lang nim>const max = 1000 |
<lang nim>const max = 1000 |