IDs stats.

primes.scm

@@ -30,11 +30,13 @@
  (
   primes-tests!
   is-4digit-prime?
+  gen-all-4digit-primes
   )
 
  (import scheme
 	 (chicken base)
-	 testing)
+	 testing
+	 utils)
 
  ;; Checks whether given number is prime by checking the remainder of
  ;; the division by all primes less than square root of the number in
@@ -58,7 +60,7 @@
  (define (gen-primes less-than . init)
    (let loop ((primes (if (null? init)
 			  '(2)
-			  init))
+			  (car init)))
 	      (number 3))
      (if (< number less-than)
 	 (loop (if (check-prime primes number)
@@ -77,6 +79,11 @@
 	(<= n 9999)
 	(check-prime primes<100 n)))
 
+ ;; Generates all valid member ids
+ (define (gen-all-4digit-primes)
+   (filter is-4digit-prime?
+	   (gen-primes 10000 primes<100)))
+
  ;; Module self-tests.
  (define (primes-tests!)
    (run-tests