From 3324327b80a50e94843dedbb704683ee9b3a9955 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 4 Aug 2024 21:01:32 -0600 Subject: Cleanup prime? --- sieve-of-eratosthenes/soe.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sieve-of-eratosthenes') 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)))) -- cgit v1.2.3