diff options
| author | bd <bdunahu@operationnull.com> | 2024-08-04 21:01:32 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-08-04 21:01:32 -0600 |
| commit | 3324327b80a50e94843dedbb704683ee9b3a9955 (patch) | |
| tree | 333f24d8de37c480a101f100a5ca539cc34552fe /sieve-of-eratosthenes | |
| parent | c04ceb5f29e965bb2d9b37bf38f10f7a12a0cab0 (diff) | |
Cleanup prime?
Diffstat (limited to 'sieve-of-eratosthenes')
| -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)))) |