diff options
Diffstat (limited to 'scheme/002-even_fibonacci_numbers.scm')
| -rw-r--r-- | scheme/002-even_fibonacci_numbers.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/scheme/002-even_fibonacci_numbers.scm b/scheme/002-even_fibonacci_numbers.scm index 65b567d..d38eaf5 100644 --- a/scheme/002-even_fibonacci_numbers.scm +++ b/scheme/002-even_fibonacci_numbers.scm @@ -13,13 +13,12 @@ (define +top+ 4000000) -(define fib - (lambda (n) - (case n - ((0) 1) - ((1) 1) - (else (+ (fib (- n 1)) - (fib (- n 2))))))) +(define (fib n) + (case n + ((0) 1) + ((1) 1) + (else (+ (fib (- n 1)) + (fib (- n 2)))))) (define result (sum |