Data update

Task/Van-Eck-sequence/Amazing-Hopper/van-eck-sequence.hopper

@@ -0,0 +1,17 @@
+#include <basico.h>
+
+algoritmo
+
+    decimales '0'
+    dimensionar(2) matriz de ceros (vaneck)
+
+    iterar para (i=2, #(i<=1000), ++i )
+         matriz.buscar en reversa(#(vaneck[i]),#(vaneck[1:i-1]))
+         ---retener--- no es cero?, entonces{ menos'i' por'-1' }
+         meter en 'vaneck'
+    siguiente
+
+    imprimir ( "Van Eck: first 10 terms  : ",#(vaneck[1:10]), NL,\
+               "Van Eck: terms 991 - 1000: ", #(vaneck[991:1000]), NL)
+
+terminar

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

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

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

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

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

@@ -0,0 +1,22 @@
+CONST limite = 1000
+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
+            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
+END

Task/Van-Eck-sequence/SETL/van-eck-sequence.setl

@@ -0,0 +1,11 @@
+program vaneck;
+    eck := [0];
+
+    loop for i in [1..999] do
+        prev := eck(..#eck-1);
+        eck(i+1) := i - (max/[j : e=prev(j) | e=eck(i)] ? i);
+    end loop;
+
+    print(eck(1..10));
+    print(eck(991..1000));
+end program;

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

@@ -0,0 +1,27 @@
+PROGRAM  "Van Eck sequence"
+VERSION  "0.0000"
+
+DECLARE FUNCTION  Entry ()
+
+FUNCTION  Entry ()
+  l = 1000
+  DIM a[l]
+  FOR n = 0 TO l-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
+END FUNCTION
+END PROGRAM

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