From 325a7d29a4bd4665c741aa0497eabc77a926844d Mon Sep 17 00:00:00 2001
From: Charles Cabergs <me@cacharle.xyz>
Date: Sat, 5 Mar 2022 11:35:32 +0100
Subject: Updated scheme setup

---
 scheme/002-even_fibonacci_numbers.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'scheme/002-even_fibonacci_numbers.scm')

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
-- 
cgit