* 素数を求める。
とりあえず、アルゴリズム事典から。
より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