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 /euler2.scm | |
| download | project_euler-1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db.tar.xz | |
initial commit
Diffstat (limited to 'euler2.scm')
| -rw-r--r-- | euler2.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/euler2.scm b/euler2.scm new file mode 100644 index 0000000..f47cad2 --- /dev/null +++ b/euler2.scm @@ -0,0 +1,10 @@ +(define (sum-fib sum a b c) + (if (> a 4000000) + sum + (if (even? a) + (sum-fib (+ sum a) b c (+ b c)) + (sum-fib sum b c (+ b c))))) + +(display (sum-fib 0 1 2 3)) +(newline) + |