10 lines
219 B
Text
10 lines
219 B
Text
(de prime? (N)
|
|
(or
|
|
(= N 2)
|
|
(and
|
|
(> N 1)
|
|
(bit? 1 N)
|
|
(let S (sqrt N)
|
|
(for (D 3 T (+ D 2))
|
|
(T (> D S) T)
|
|
(T (=0 (% N D)) NIL) ) ) ) ) )
|