Data commit

Task/Van-Eck-sequence/Cowgol/van-eck-sequence.cowgol

@@ -0,0 +1,33 @@
+include "cowgol.coh";
+
+sub print_list(ptr: [uint16], n: uint8) is
+    while n > 0 loop
+        print_i16([ptr]);
+        print_char(' ');
+        n := n - 1;
+        ptr := @next ptr;
+    end loop;
+    print_nl();
+end sub;
+
+const LIMIT := 1000;
+var eck: uint16[LIMIT];
+MemZero(&eck as [uint8], @bytesof eck);
+var i: @indexof eck;
+var j: @indexof eck;
+
+i := 0;
+while i < LIMIT-1 loop
+    j := i-1;
+    while j != -1 loop
+        if eck[i] == eck[j] then
+            eck[i+1] := i-j;
+            break;
+        end if;
+        j := j - 1;
+    end loop;
+    i := i + 1;
+end loop;
+
+print_list(&eck[0], 10);
+print_list(&eck[LIMIT-10], 10);