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