22 lines
385 B
Text
22 lines
385 B
Text
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))
|