"血をもって書け。そうすればあなたは、血が精神だということを経験するだろう。"

Problem5

2520 は 1 から 10 の数字の全ての整数で割り切れる数字であり、そのような数字の中では最小の値である。
では、1 から 20 までの整数全てで割り切れる数字の中で最小の値はいくらになるか。

Haskell

main=print $ lcm_ [1..20]
lcm_ []=1
lcm_ (x:xs)=lcm x $ lcm_ xs
232792560

lcmが標準でついてくるとはおもわなんだ。

foldlでもっと短く

main=print $ foldl lcm 1 [1..20]

一日一チベットリンク

豪州政府は今回、中国が派遣した「聖火防衛隊」には聖火を警護する権利はないとして認めず、約10人の豪警官がランナーの周りを囲んで走った。聖火防衛隊は火の管理をする名目で2人だけが伴走を認められたが、聖火に近づこうとすると豪警官に阻止される一幕もあった。