jeneshicc https://blog.hatena.ne.jp/jeneshicc/ 落書き、時々落学 https://jeneshicc.hatenadiary.org/ Project Euler Haskell http://projecteuler.net/index.php?section=problems&id=149 最大部分列和問題を繰り返し解いているだけ。 import Data.List import Data.Array.IArray m = 2*10^3 sArray = sa :: Array Integer Integer where sa = listArray (1,m^2). map s' $ [1..m^2] s' k | inRange(1,55) k= (100003 - 200003*k + 300007*k^3) `mod` 1000000 - 500000 | … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081214%2F1229250367" title="Problem 149 - 落書き、時々落学" 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 2008-12-14 19:26:07 rich https://jeneshicc.hatenadiary.org/entry/20081214/1229250367 1.0 100%