Data update

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

@@ -0,0 +1,22 @@
+limite = 1001
+dim a(limite)
+
+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
+            break
+        fi
+    next m
+next n
+
+print "Secuencia de Van Eck: \n"
+print "Primeros 10 terminos: ";
+for i = 0 to 9
+    print a(i), " ";
+next i
+print "\nTerminos 991 al 1000: ";
+for i = 990 to 999
+    print a(i), " ";
+next i
+print