Look for invalid ids.

2023-03-16 22:54:18 +01:00 · 2023-03-16 22:54:18 +01:00 · e6d383b020
commit e6d383b020
parent e1ffc98c53
2 changed files with 16 additions and 4 deletions
--- a/primes.scm
+++ b/primes.scm
@ -55,8 +55,10 @@
 		 #t))))))

 ;; Generates list of primes less than given argument.
- (define (gen-primes less-than)
-   (let loop ((primes '(2))
+ (define (gen-primes less-than . init)
+   (let loop ((primes (if (null? init)
+			  '(2)
+			  init))
 	      (number 3))
     (if (< number less-than)
 	 (loop (if (check-prime primes number)