Data commit

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

@@ -0,0 +1,42 @@
+define limit = 1000
+
+dim list[limit]
+
+print "calculating van eck sequence..."
+
+for n = 0 to limit - 1
+
+	for m = n - 1 to 0 step -1
+
+		if list[m] = list[n] then
+
+			let c = n + 1
+			let list[c] = n - m
+
+			break m
+
+		endif
+
+		wait
+
+	next m
+
+next n
+
+print "first 10 terms: "
+
+for i = 0 to 9
+
+	print list[i]
+
+next i
+
+print "terms 991 to 1000: "
+
+for i = 990 to 999
+
+	print list[i]
+
+next i
+
+end