wvogel00 https://blog.hatena.ne.jp/wvogel00/ wvogel日記 https://wvogel00.hatenadiary.org/ Haskell a = 50 b = 2000 c = 40 main = putStrLn s s :: String s = show.sum $ map f [0..b] f :: Integer -> Integer f n | n > b = n - c | n <= b = f (a+ f (a+ f (a+ f (a+n)))) 試験勉強してたらHaskell触りたくなって 340番の問題に挑戦！ これは例題として載っていたもの。 動かしてみたらちゃんと答えがでました ここで、 a = 7^21 b = 21^7 c = 12^7 として sを計算してやるとメモリが足りずに計算できず......… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20110720%2F1311170473" title="Project Euler 340 - wvogel日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-07-20 23:01:13 rich https://wvogel00.hatenadiary.org/entry/20110720/1311170473 1.0 100%