http://projecteuler.net/index.php?section=problems&id=75 ピタゴラスの数の生成式を使って周囲の長さをリストにする。例えば60までなら、 [12,24,36,48,60,30,60,40,56] これをMapに入れようとしたが、メモリが足りない。 import qualified Data.Map as M…

http://projecteuler.net/index.php?section=problems&id=2 Haskellならこう。 fib = 1:2:[ a + b | (a, b) <- zip fib (tail fib) ] main = print (sum (filter even (takeWhile (<= 4 * 10^6) fib))) filterと同様にtakewhileを作る。 template<typename T, typename U, typename V> class take</typename>…