* 素数を求める
素直に再帰
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