Data update

Task/Van-Eck-sequence/Chipmunk-Basic/van-eck-sequence.basic

@@ -0,0 +1,23 @@
+100 cls
+110 limite = 1000
+120 dim a(limite)
+130 '
+140 for n = 0 to limite-1
+150   for m = n-1 to 0 step -1
+160     if a(m) = a(n) then
+170       a(n+1) = n-m
+180       exit for
+190     endif
+200   next m
+210 next n
+220 '
+230 print "Secuencia de Van Eck:";chr$(10)
+240 print "Primeros 10 terminos: ";
+250 for i = 0 to 9
+260   print a(i);
+270 next i
+280 print chr$(10);"Terminos 991 al 1000: ";
+290 for i = 990 to 999
+300   print a(i);
+310 next i
+320 end