ancient-v https://blog.hatena.ne.jp/ancient-v/ 思いついたら書く日記 Ex https://ancient-v.hatenadiary.org/ Project Euler Emacs Lisp 問題4: 3桁の数の積で表される回文数のうち最大のものはいくらになるか。[=>原文和訳] 今回は力技でもすぐ答えが出そうな簡単な問題です。 回文数チェック関数 (defun is-palindromic-number (x) "回文数チェック" (let* ((str (number-to-string x)) (sub-loop (lambda (left right) (cond ((>= left right) t) ((not (= (aref str left) (aref str right))) nil) (t (funcall sub-loop (1+ left) (1- ri… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091112%2F1258037815" title=" Project Euler Problem 4 - 思いついたら書く日記 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 23:56:55 rich https://ancient-v.hatenadiary.org/entry/20091112/1258037815 1.0 100%