inamori https://blog.hatena.ne.jp/inamori/ inamori’s diary https://inamori.hateblo.jp/ Haskell http://projecteuler.net/index.php?section=problems&id=91 点Pを軸上以外に取って、Pを通りOPに垂直に直線を引く。その直線上の格子点がQ。 f n = 3 * n * n + sum [ g (x,y) | x <- [1..n], y <- [1..n] ] g (x,y) = (min (div x dx) (div (n - y) dy)) + (min (div y dy) (div (n - x) dx)) where d = gcd x y dx = div y d dy = div x d n = 50 main = pri… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100324%2Fp1" title="Project Euler 91 - 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-03-24 00:00:00 rich https://inamori.hateblo.jp/entry/20100324/p1 1.0 100%