問題13: 提示された50桁の数字100個の総和の上位10桁を求める。[=>問題文] とうとうこの手の来てしまいましたね。多倍長演算ってライブラリや言語サポートがないとめんどくさいんだよな・・・。足し算だけなので最低限機能でサクっといきましょう。 問題13の…

問題12: 501 個以上の約数をもつ最初の三角数はいくらか。[=>問題文] 問題12の解答 (defun factorize (N) "素因数分解" (let ((n N) (i 1) (dest nil)) (if (zerop (mod n 2)) (let ((count 0)) (while (zerop (mod n 2)) (setq n (/ n 2)) (incf count)) (s…