From 1a350525867996f57ebb5d7c428ba8929d4995c6 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 2 Feb 2014 17:22:36 -0500 Subject: Solve problem 7. --- problem-7.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 problem-7.scm 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) -- cgit v1.2.3