5問目
http://projecteuler.net/index.php?section=problems&id=5
1から20の最小公倍数を求める。
最初、手計算で解いてしまって、どうプログラムしようかと思ったら、プログラムしても簡単でした。
main = print $ euler005 [1..20] euler005 :: [Int] -> Int euler005 xs = foldl1 lcm xs
http://projecteuler.net/index.php?section=problems&id=5
1から20の最小公倍数を求める。
最初、手計算で解いてしまって、どうプログラムしようかと思ったら、プログラムしても簡単でした。
main = print $ euler005 [1..20] euler005 :: [Int] -> Int euler005 xs = foldl1 lcm xs