* 素数を求める。
とりあえず、アルゴリズム事典から。
よりLispらしく。
update : 2006-06-19 (Mon) 13:01:32
よりLispらしく。
(defun generatePrimes (n)
(let ((k 0)
(prime (make-vector n :fill-pointer 0)))
(vector-push 2 prime)
(incf k)
(do ((x 3 (+ x 2))
(i 0 0))
((>= k n))
(while (and (< i k) (/= 0 (rem x (aref prime i))))
(incf i))
(when (= i k)
(vector-push x prime)
(incf k)))
prime))
update : 2006-06-19 (Mon) 13:01:32
Source of Nothingness
NANRI
NANRI