Van Eck sequence: Difference between revisions
Added XPL0 example.
Not a robot (talk | contribs) (Add Comal) |
(Added XPL0 example.) |
||
Line 3,156:
Terms 991 to 1000 of the sequence are:
[4, 7, 30, 25, 67, 225, 488, 0, 10, 136]
</pre>
=={{header|XPL0}}==
<lang XPL0>int Seq(1001), Back, N, M, Term;
func New; \Return 'true' if last term is new to sequence
[for Back:= N-2 downto 1 do
if Seq(Back) = Seq(N-1) then return false;
return true;
];
func VanEck; \Return term of Van Eck sequence
[Seq(N):= if New then 0 else N-Back-1;
N:= N+1;
return Seq(N-1);
];
[N:= 1;
for M:= 1 to 1000 do
[Term:= VanEck;
if M<=10 or M>=991 then
[IntOut(0, Term);
if M=10 or M=1000 then Crlf(0) else Text(0, ", ");
];
];
]</lang>
{{out}}
<pre>
0, 0, 1, 0, 2, 0, 2, 2, 1, 6
4, 7, 30, 25, 67, 225, 488, 0, 10, 136
</pre>
| |||