inamori https://blog.hatena.ne.jp/inamori/ inamori’s diary https://inamori.hateblo.jp/ Haskell http://projecteuler.net/index.php?section=problems&id=28 螺旋を1歩ずつ辿っていくとこう書ける。ただし、遅い。 n = 1001 next (x, y) | y >= 0 && y >= abs(x) = (x + 1, y) | x = abs(y) = (x, y + 1) | y = abs(x) = (x - 1, y) | otherwise = (x, y - 1)is_diagonal (x, y) = abs(x) == abs(y)a = (0, 0):[ next(pt) | pt main = print(sum(m… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100203%2Fp1" title="Project Euler 28 - inamori’s diary" 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 2010-02-03 00:00:01 rich https://inamori.hateblo.jp/entry/20100203/p1 1.0 100%