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
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