Data commit

Task/Hamming-numbers/11l/hamming-numbers.11l

@@ -0,0 +1,22 @@
+F hamming(limit)
+   V h = [1] * limit
+   V (x2, x3, x5) = (2, 3, 5)
+   V i = 0
+   V j = 0
+   V k = 0
+
+   L(n) 1 .< limit
+      h[n] = min(x2, x3, x5)
+      I x2 == h[n]
+         i++
+         x2 = 2 * h[i]
+      I x3 == h[n]
+         j++
+         x3 = 3 * h[j]
+      I x5 == h[n]
+         k++
+         x5 = 5 * h[k]
+   R h.last
+
+print((1..20).map(i -> hamming(i)))
+print(hamming(1691))