trif :: (Integral a)=> a -> a trif n = (n+1)*n `div` 2 hexf :: (Integral a) => a -> a hexf n = n*(2*n-1) pentaf::(Integral a) => a -> a pentaf n = n*(3*n-1) `div` 2 divisors :: (Integral a) => a-> [a] divisors n =filter ((==0).(n`mod`)) [2…

filter関数利用に書き直しただけ import Data.Char import Data.Maybe alphabets = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" table = zip alphabets [1..] trinum = map trifunc [1..] euler42 :: String -> Bool euler42 str = wordvalue str `elem` (takeWhile (<=wo…

我ながらあほらしい。 どうしてこんなことに気がつかなかったんだ..... 昨日メモリリークしたのは、単純に無限リストを使っているからです。 euler42 :: String -> Int euler42 str = case (wordnum str `elem`) trinumbers of True -> 1 False -> 0 とあり…