* 素数を求める
素直に再帰
update : 2006-06-22 (Thu) 00:40:06
(defun generate-primes (limit)
(labels ((check (x prime)
(cond ((endp prime)
t)
((zerop (rem x (car prime)))
nil)
(t
(check x (cdr prime)))))
(main (n x prime)
(cond ((> x n)
(nreverse prime))
((check x prime)
(main n (+ x 2) (cons x prime)))
(t
(main n (+ x 2) prime)))))
(format t "~{ ~D~}~%" (main limit 3 (list 2)))))
update : 2006-06-22 (Thu) 00:40:06
Source of Nothingness
NANRI
NANRI