24 lines
493 B
Plaintext
24 lines
493 B
Plaintext
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, ", ");
|
|
];
|
|
];
|
|
]
|