Anonymous user
Primality by trial division: Difference between revisions
m
→{{header|Scheme}}: simpler
m (→{{header|Scheme}}: faster) |
m (→{{header|Scheme}}: simpler) |
||
Line 1,345:
<lang scheme>; twice faster, testing only odd divisors
(define (prime? n)
(if (< n
(and (odd? n)
(let loop ((k 3))
| |||