19 lines
343 B
Common Lisp
19 lines
343 B
Common Lisp
|
; Common Lisp version of a Prime Number Finder
|
||
|
|
; haplo@mindstab.net
|
||
|
|
|
||
|
|
(defun check (max i sq)
|
||
|
|
(if (> i sq)
|
||
|
|
(format t "~d~%" max)
|
||
|
|
(if (not (= (mod max i) 0))
|
||
|
|
(check max (+ i 2) sq))))
|
||
|
|
|
||
|
|
(defun _primes (max i)
|
||
|
|
(if (< i max)
|
||
|
|
(progn
|
||
|
|
(check i 3 (sqrt i))
|
||
|
|
(_primes max (+ i 2)))))
|
||
|
|
|
||
|
|
(defun primes (max)
|
||
|
|
(_primes max 3))
|
||
|
|
|