Problem 204

http://projecteuler.net/index.php?section=problems&id=204

普通の解法。

import Number
ham xs = h
where h = 1:foldr1 merge [map (x*) h|x<-xs ]
main = print.length.takeWhile(<=10^9) . ham .takeWhile(<100) $ primes