http://projecteuler.net/index.php?section=problems&id=25 フィボナッチ数列で1000桁になるのは何番目かを求める。 main = print $ euler025 999 euler025 :: Int -> Int euler025 n = length $ takeWhile (< 10 ^ n) fibs fibs :: [Integer] fibs = 0 : 1…

http://projecteuler.net/index.php?section=problems&id=24 0から9までの数字で作る順列を辞書順に並べたときに、百万番目の順列を求める。 順列を作る部分はよくある問題みたいです。 http://www.sampou.org/cgi-bin/haskell.cgi?Programming%3a%b6%cc%bc%…