GWの昼下がり、みなさんいかがお過ごしでしょうか。日本Rubyカンファレンス2006きましたね。チケットGETできるかな? くまくまーの中の人のプロフィールがよかった。こだわり持ってナンボだよなぁ。 (追記) 実行委員長代理から指摘をうけて修正。滝汗だ。

ちょっとなまった。ただでさえたいしたことないのに。 import List (intersperse) primes n = erat (2:[3,5..n]) where erat [] = [] erat (x:xs) = x : erat [y | y <- xs, y `mod` x /= 0] calc n m = (m, length (calc' n m)) where calc' n m = let (a, …