diff options
| author | Charles Cabergs <me@cacharle.xyz> | 2022-03-05 11:35:32 +0100 |
|---|---|---|
| committer | Charles Cabergs <me@cacharle.xyz> | 2022-03-05 11:35:32 +0100 |
| commit | 325a7d29a4bd4665c741aa0497eabc77a926844d (patch) | |
| tree | 24d98f18c92fae9d6ca0423cc01de96404713a04 /scheme/002-even_fibonacci_numbers.scm | |
| parent | 726c5ce4decbcd354aff50d1a486bca8c2fa33c1 (diff) | |
| download | project_euler-325a7d29a4bd4665c741aa0497eabc77a926844d.tar.gz project_euler-325a7d29a4bd4665c741aa0497eabc77a926844d.tar.bz2 project_euler-325a7d29a4bd4665c741aa0497eabc77a926844d.zip | |
Updated scheme setup
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 |