diff options
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) + |