From 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db Mon Sep 17 00:00:00 2001 From: Iru Cai Date: Thu, 24 May 2018 21:39:58 +0800 Subject: initial commit --- euler10.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 euler10.scm (limited to 'euler10.scm') 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) -- cgit v1.2.3