Data commit

Task/Van-Eck-sequence/MAD/van-eck-sequence.mad

@@ -0,0 +1,16 @@
+            NORMAL MODE IS INTEGER
+            DIMENSION E(1000)
+            E(0)=0
+            THROUGH L1, FOR I=0, 1, I.GE.1000
+            THROUGH L2, FOR J=I-1, -1, J.L.0
+            WHENEVER E(J).E.E(I)
+                E(I+1) = I-J
+                TRANSFER TO L1
+            END OF CONDITIONAL
+L2          CONTINUE
+            E(I+1)=0
+L1          CONTINUE
+            THROUGH S, FOR I=0, 1, I.GE.10
+S           PRINT FORMAT FMT, I, E(I), I+990, E(I+990)
+            VECTOR VALUES FMT = $2HE(,I3,2H)=,I3,S5,2HE(,I3,2H)=,I3*$
+            END OF PROGRAM