diff options
Diffstat (limited to 'sieve-of-eratosthenes/soe.scm')
| -rw-r--r-- | sieve-of-eratosthenes/soe.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sieve-of-eratosthenes/soe.scm b/sieve-of-eratosthenes/soe.scm index 4b83a97..f0067c4 100644 --- a/sieve-of-eratosthenes/soe.scm +++ b/sieve-of-eratosthenes/soe.scm @@ -15,7 +15,7 @@ (size (length buffer))) (sieve (filter - (lambda (x) (not (eq? (remainder x curr) 0))) + (lambda (x) (not (zero? (remainder x curr)))) buffer) (cons curr accept) size)))) |