diff options
author | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
---|---|---|
committer | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
commit | 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db (patch) | |
tree | abde0e4da3c7fe138f3874a94d8eb7d0e44c3224 /euler10.scm | |
download | project_euler-1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db.tar.xz |
initial commit
Diffstat (limited to 'euler10.scm')
-rw-r--r-- | euler10.scm | 13 |
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) |