http://projecteuler.net/index.php?section=problems&id=121確率を計算して、その逆数を求めるかんたんなお仕事 だったが、問題文を理解するのに多大な時間を費やした。 英語 きらいです。 prob m n | n == 0 = 1 | m > n = (prob (m-1) (n-1)+ m*prob (m-1…

http://projecteuler.net/index.php?section=problems&id=119brute force. かなり遅い。もう少し早いものを考えたいが、思いつかない。 import Data.List import Data.Char digits :: Integer -> [Integer] digits = map (toInteger.digitToInt).show p119 n…

http://projecteuler.net/index.php?section=problems&id=122深さ優先。最初は幅優先でやってみたが、どう考えても葉が増えすぎる。 import qualified Data.Map as M import Control.Monad depth = 15 bound = 200 search ::M.Map Int Int -> [Int] -> M.Map…