diff --git a/README.md b/README.md index 7fb7e19..0ce672e 100644 --- a/README.md +++ b/README.md @@ -239,6 +239,19 @@ Returns the period from the list of periods ```ps``` the given month ### Primes +A very simple module for generating and checking 4-digit prime numbers. + + (is-4digit-prime? n) + +* ```n``` - a number + +Returns true if the given number ```n``` has four digits and it is a +prime number. + + (gen-all-4digit-primes) + +Returns a list of all 4-digit prime numbers. + Generic Support Modules ----------------------- diff --git a/primes.scm b/primes.scm index 3544f46..1427504 100644 --- a/primes.scm +++ b/primes.scm @@ -28,9 +28,9 @@ (module primes ( - primes-tests! is-4digit-prime? gen-all-4digit-primes + primes-tests! ) (import scheme