問題7: 10001 番目の素数を求めよ。[=>原文和訳] 問題7の解答 (defun problem007 (N) "N番目の素数を取得" (let ((primes-list '(2)) (n 1) (count (1- N))) (while (> count 0) (incf n 2) (let ((p 0)) (dolist (p primes-list) (when (< (floor (sqrt n))…

問題6: 最初の100個の自然数について和の二乗と二乗の和の差を求めよ。[=>原文和訳] 問題6の解答 (require 'cl) (defun problem006 (N) (- (expt (/ (* N (1+ N)) 2) 2) (let ((n 0) (total 0)) (dotimes (n N total) (incf total (expt (1+ n) 2)))))) (pro…