1 files changed, 13 insertions, 0 deletions
diff --git a/euler10.scm b/euler10.scm
new file mode 100644
index 0000000..3ae17f2
--- /dev/null
+++ b/euler10.scm
@@ -0,0 +1,13 @@
+(load "../sicp/chapter01/miller-rabin.scm")
+
+(define (sum-primes limit)
+ (define (sum-iter s l)
+  (cond ((>= l limit) s)
+   		((prime? l 5)
+		 (sum-iter (+ s l) (+ l 2)))
+		(else (sum-iter s (+ l 2)))))
+ (sum-iter 2 3))
+
+(display (sum-primes (read)))
+(newline)
+(exit)