http://projecteuler.net/index.php?section=problems&id=106とりあえず問題文を理解するのにすごい時間がかかった。 なんで、n=4で25になるのか分からなかった。 とりあえず原因は 問題文がどこまでリストの要素が昇順である仮定をつかっているのか 明記し…

http://projecteuler.net/index.php?section=problems&id=105ちょっと考えたら、シンプルな解法に気がついた。 import Data.List monotone xs = all (f.sort$xs) [1..length xs `div` 2] where f ys n = (sum.take (n+1)) ys > (sum.take n.reverse) ys subs…

http://projecteuler.net/index.php?section=problems&id=104単純な解法 import Data.List fib = 0:1:zipWith (+) fib (tail fib) fibMod = map (flip mod (10^9))$0:1:zipWith (+) fibMod (tail fibMod) main = print.findIndex pandigit.zip fibMod $fib w…

http://projecteuler.net/index.php?section=problems&id=107どうみても最小木問題です。本当に(ryというわけで、今回はライブラリを使ってみた。 なんと、最小木を求める関数があるという充実ぶり。 import Data.List import Data.Array import Data.Graph.…