ancient-v https://blog.hatena.ne.jp/ancient-v/ 思いついたら書く日記 Ex https://ancient-v.hatenadiary.org/ Project Euler Emacs Lisp 問題5: 1 から 20 までの整数全てで割り切れる数字の中で最小の値はいくらになるか[=>原文和訳] 20の階乗は float型で正確な整数を扱える範囲を超えてしまいます。ですが、今回は階乗ではなく最小公倍数なので floatや、もしかしたら integer の範囲で収まるかもしれません。ダメもとでやってみましょう。 とりあえずやってみる (defun problem005 (N) "1〜Nの整数の最小公倍数を求める" (let ((n 0) (lis nil)) (dotimes (n N) (setq lis (cons (1+ n) lis))) (apply #'lcm lis)))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091112%2F1258042698" title=" Project Euler Problem 5 - 思いついたら書く日記 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-12 01:18:18 rich https://ancient-v.hatenadiary.org/entry/20091112/1258042698 1.0 100%