RosettaCodeData/Task/Van-Eck-sequence/Picat/van-eck-sequence-2.picat

12 lines
196 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
main =>
L = a(1000),
println(L[1..10]),
println(L[991..1000]),
nl.
a(0) = {0}.
a(1) = {0,0}.
a(N) = A ++ {cond(M > 0, N-M, 0)} =>
A = a(N-1),
M = find_last_of(slice(A,1,N-1),A.last).