1 files changed, 16 insertions, 0 deletions
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)