Data update

Task/Van-Eck-sequence/BASIC256/van-eck-sequence.basic

@@ -0,0 +1,21 @@
+limite = 1001
+dim a(limite) fill 0
+
+for n = 0 to limite-1
+    for m = n-1 to 0 step -1
+        if a[m] = a[n] then
+            a[n+1] = n-m
+            exit for
+        end if
+    next m
+next n
+
+print "Secuencia de Van Eck:" & Chr(10)
+print "Primeros 10 terminos: ";
+for i = 0 to 9
+    print a[i]; " ";
+next i
+print chr(10) & "Terminos 991 al 1000: ";
+for i = 990 to 999
+    print a[i]; " ";
+next i