今日は一年分ぐらい英語を聞いて、一年分ぐらい話した気がするなー。 とりあえず、今後日本の外に出て行くなら、もう少し英語話せるようになったほうが良いね。 といことを痛感しました。

http://projecteuler.net/index.php?section=problems&id=174 まぁ、これもさっきと大して変わらない（と思う、もっと良い解法があるかも）。 import Data.List import Data.Array.IO n :: Integer n = 10^6 lamina :: Integer -> [Integer] lamina h = [l^2…

http://projecteuler.net/index.php?section=problems&id=173 回答者が多いだけあって簡単。 lamina :: Integer -> Integer lamina n = (sum.map (div n)) [4,8..4*m] - div (m*(m+1)) 2 where m = floor.sqrt.fromInteger.div n $ 4 p173 = lamina $ 10^6