euler7.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(load "../sicp/chapter01/miller-rabin.scm")

(define (nth-prime n)
 (define (try-iter p nth)
  (if (prime? p 5)
   (if (= nth (- n 1))
	p
	(try-iter (+ p 2) (+ nth 1)))
   (try-iter (+ p 2) nth)))
 (if (= n 1) 
  2
  (try-iter 3 1)))

(display (nth-prime (read)))
(newline)
(exit)