troter https://blog.hatena.ne.jp/troter/ 放牧日記 https://troter.hatenablog.jp/ prolog 練習がてら解いてみた。 回答 デフォルトのGnu PrologだとProblem3は速攻でヒープが足らなくなって落ちる。面倒なのでSWI-Prologを利用した。 problem1(N, Result) :- N1 is N - 1, problem1_sub(N1, Result, 0), !. problem1_sub(0, Acc, Acc). problem1_sub(N, Result, Acc) :- N > 0, N1 is N - 1, ((N mod 3 =:= 0 ; N mod 5 =:= 0) -> Acc1 is Acc + N; Acc1 is Acc), prob… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftroter.hatenablog.jp%2Fentry%2F20080428%2F1209395947" title=" project euler problem 1-3 answer - 放牧日記" 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-04-28 00:19:07 rich https://troter.hatenablog.jp/entry/20080428/1209395947 1.0 100%