summaryrefslogtreecommitdiff
path: root/problem-7.scm
diff options
context:
space:
mode:
Diffstat (limited to 'problem-7.scm')
-rw-r--r--problem-7.scm21
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)