Data commit

Task/Van-Eck-sequence/Action-/van-eck-sequence.action

@@ -0,0 +1,39 @@
+INT FUNC LastPos(INT ARRAY a INT count,value)
+  INT pos
+
+  pos=count-1
+  WHILE pos>=0 AND a(pos)#value
+  DO
+    pos==-1
+  OD
+RETURN (pos)
+
+PROC Main()
+  DEFINE MAX="1000"
+  INT ARRAY seq(MAX)
+  INT i,pos
+
+  seq(0)=0
+  FOR i=1 TO MAX-1
+  DO
+    pos=LastPos(seq,i-1,seq(i-1))
+    IF pos>=0 THEN
+      seq(i)=i-1-pos
+    ELSE
+      seq(i)=0
+    FI
+  OD
+
+  PrintE("Van Eck first 10 terms:")
+  FOR i=0 TO 9
+  DO
+    PrintI(seq(i)) Put(32)
+  OD
+  PutE() PutE()
+
+  PrintE("Van Eck terms 991-1000:")
+  FOR i=990 TO 999
+  DO
+    PrintI(seq(i)) Put(32)
+  OD
+RETURN