import Data.List f8 :: Int -> Int f8 0 = 1 f8 x = (f8 $x`div`10) * (x`mod`10) take' :: String -> [Int] take' xs | length xs < 5 = [] | otherwise = (f8.read.take 5 $xs):(take'.drop 5 $xs) euler8 :: String ->Int euler8 xs = maximum.map (maxi…

今日帰りの電車の中でちょっと思い出したので というか、最近よく思い出すので、一度アウトプットしようかと思うことが。 ※これはあくまで自分のための記録です。なら日記に書けよ、とか自分でも思うのですが、あとで見返すときのこととか考えるとブログが一…

今日はKUPCに参加してきました。 なんか......3,4問目あたりから完全に思考力が鈍った..... まだまだですね、反省。 しかし！！ KUPCの飲み会で、Haskellのワードがちょいちょい聞かれたところを見ると！！ やはりここでもHaskellは広まるんじゃなかろうか！…