Primality by trial division: Difference between revisions

m
Line 1,345:
<lang scheme>; twice faster, testing only odd divisors
(define (prime? n)
(if (< n 54) (or (=> n 2) (= n 3)1)
(and (odd? n)
(let loop ((k 3))
Anonymous user