tsz https://blog.hatena.ne.jp/tsz/ tszの日記 https://tsz.hatenadiary.org/ L-99 Common Lisp g000001さんの解法を参考にさせてもらいました。まずは、次の素数を見つける関数next-primeを定義。 例によって、P31のprime-pを使います。 (defun next-prime (n) (if (prime-p (1+ n)) (1+ n) (next-prime (1+ n)))) (next-prime 40) ;; => 41 奇数と2は対象外なので、nilを返します。 ;; P40 (defun goldbach (m) (if (or (oddp m) (<= m 2)) nil (do ((l 2 (next-prime l))) ((or (prime-p (-… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftsz.hatenadiary.org%2Fentry%2F20080328%2F1206717801" title="P40: goldbach conjecture - tszの日記" 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-03-28 00:23:21 rich https://tsz.hatenadiary.org/entry/20080328/1206717801 1.0 100%