2008-12-24から1日間の記事一覧
http://projecteuler.net/index.php?section=problems&id=157 150番あたりの問題にしては簡単。 import Control.Monad import Number import Data.List divisor100 n = [2^x*5^y | x <-[0..2*n], y <- [0..2*n]] primitiveSolutions n = filter (uncurry (<=…
http://pooh.gr.jp/item-229.html#top