ancient-v https://blog.hatena.ne.jp/ancient-v/ 思いついたら書く日記 Ex https://ancient-v.hatenadiary.org/ Project Euler Emacs Lisp 問題9: a+b+c=1000 かつ a^2+b^2=c^2 (a<b<c) を満たす唯一の a b c の積を求めよ。[=>問題文] 問題9の解答 (defun problem009 (N) (let ((a 0) (ans nil)) (while (and (null ans) (< (incf a) N)) (let* ((a2 (* a a)) (n (- N a)) (b (1+ a)) (c 0)) (while (and (null ans) (< b (setq c (- n b)))) (if (= (+ a2 (* b b)) (* c c)) (setq ans (* … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091115%2F1258211839" title=" Project Euler Problem 9 - 思いついたら書く日記 Ex" 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 2009-11-15 00:17:19 rich https://ancient-v.hatenadiary.org/entry/20091115/1258211839 1.0 100%