project euler ploblem 5
2520 は 1 から 10 の数字の全ての整数で割り切れる数字であり、そのような数字の中では最小の値である。
では、1 から 20 までの整数全てで割り切れる数字の中で最小の値はいくらになるか。
あれ？ghc6.10からlcmが実装されていたはずなので…
main = putStrLn $ show problem problem = foldl lcm 1 [1..20]
あっさりしすぎだ。もしかして gcdとlcmをユークリッドの互除法で実装させたいのかな？
まあいいかｗ
