euler10.scm


1
2
3
4
5
6
7
8
9
10
11
12
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)