From 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db Mon Sep 17 00:00:00 2001
From: Iru Cai <mytbk920423@gmail.com>
Date: Thu, 24 May 2018 21:39:58 +0800
Subject: initial commit

---
 euler7.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 euler7.scm

(limited to 'euler7.scm')

diff --git a/euler7.scm b/euler7.scm
new file mode 100644
index 0000000..50daa8a
--- /dev/null
+++ b/euler7.scm
@@ -0,0 +1,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)
-- 
cgit v1.2.3