今日のHaskell
merge (x:xs) (y:ys) | x < y = x: merge xs (y:ys)
| x == y = x: merge xs ys
| x > y = y: merge (x:xs) ys
hamming = 1:(merge (map (2*) hamming)
(merge (map (3*) hamming)
(map (5*) hamming)))
美しい。Infinite list と pattern matching のなせる華麗さ。
ところでICFPどうなったんだろう。