Data update

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

@@ -0,0 +1,27 @@
+If OpenConsole()
+  Define.i n, m, i, limite
+  limite = 1001
+  Dim a.i(limite)
+
+  For n = 0 To limite-1
+    For m = n-1 To 0 Step -1
+      If a(m) = a(n)
+        a(n+1) = n-m
+        Break
+      EndIf
+    Next m
+  Next n
+
+  PrintN("Secuencia de Van Eck:" + #CRLF$)
+  Print("Primeros 10 terminos: ")
+  For i = 0 To 9
+    Print(Str(a(i)) + " ")
+  Next i
+  Print(#CRLF$ + "Terminos 991 al 1000: ")
+  For i = 990 To 999
+    Print(Str(a(i)) + " ")
+  Next i
+
+  PrintN(#CRLF$ + "Press ENTER to exit" + #CRLF$ ): Input()
+  CloseConsole()
+EndIf