Data commit

Task/Van-Eck-sequence/Picat/van-eck-sequence-1.picat

@@ -0,0 +1,13 @@
+main =>
+  Limit = 1000,
+  A = new_array(Limit+1),
+  bind_vars(A,0),
+  foreach(N in 1..Limit-1)
+    M = find_last_of(A[1..N],A[N+1]),
+    if M > 0 then
+       A[N+2] := N-M+1
+    end
+  end,
+  println(A[1..10]),
+  println(A[991..1000]),
+  nl.

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

@@ -0,0 +1,11 @@
+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).