2008-03-20から1日間の記事一覧
Project Eulerの問題をできるだけHaskellで解こうとしてるけど、Haskellで速いプログラムを書けません。ヘタレ。21とか pdivs n = [x | x <- [1 .. n `div` 2], n `mod` x == 0] amicable a = sum (pdivs a') == a && a' /= a where a' = sum (pdivs a) > su…
死ねばいいのに
Project Eulerの問題をできるだけHaskellで解こうとしてるけど、Haskellで速いプログラムを書けません。ヘタレ。21とか pdivs n = [x | x <- [1 .. n `div` 2], n `mod` x == 0] amicable a = sum (pdivs a') == a && a' /= a where a' = sum (pdivs a) > su…
死ねばいいのに