diff options
| -rw-r--r-- | problem-7.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/problem-7.scm b/problem-7.scm new file mode 100644 index 0000000..edad5da --- /dev/null +++ b/problem-7.scm @@ -0,0 +1,21 @@ +(use-modules (srfi srfi-1)) + +(define (divisible? m n) + (zero? (modulo m n))) + +(define (divisible-by-any? x nums) + (any (lambda (n) + (divisible? x n)) + nums)) + +(define (nth-prime n) + (define (inner m count primes) + (cond ((= count n) + (car primes)) + ((divisible-by-any? m primes) + (inner (1+ m) count primes)) + (else + (inner (1+ m) (1+ count) (cons m primes))))) + (inner 2 0 '())) + +(nth-prime 10001) |