Data update

Task/Van-Eck-sequence/GW-BASIC/van-eck-sequence.basic

@@ -0,0 +1,21 @@
+100 CLS
+110 L = 1000
+120 DIM A(L)
+130 FOR N = 0 TO L
+140   LET A(N) = 0
+150 NEXT N
+160 FOR N = 0 TO L-1
+170   FOR M = N-1 TO 0 STEP -1
+180     IF A(M) = A(N) THEN A(N+1) = N - M : GOTO 200
+190   NEXT M
+200 NEXT N
+210 PRINT "Secuencia de Van Eck:"; CHR$(10)
+220 PRINT "Primeros 10 terminos: ";
+230 FOR I = 0 TO 9
+240   PRINT A(I);
+250 NEXT I
+260 PRINT CHR$(10); "Terminos 991 al 1000: ";
+270 FOR I = 990 TO 999
+280   PRINT A(I);
+290 NEXT I
+300 END