From 0921d8222bb883ea86d51c7200a865a5e4dbc469 Mon Sep 17 00:00:00 2001
From: James Yoo
Date: Mon, 24 Oct 2022 16:46:58 -0700
Subject: Adding HtDP version of fibonacci, pre @htdp tags

---
 entries/jyoo980/vintage-htdp/fib.rkt | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 entries/jyoo980/vintage-htdp/fib.rkt

(limited to 'entries/jyoo980/vintage-htdp/fib.rkt')

diff --git a/entries/jyoo980/vintage-htdp/fib.rkt b/entries/jyoo980/vintage-htdp/fib.rkt
new file mode 100644
index 0000000..697c17b
--- /dev/null
+++ b/entries/jyoo980/vintage-htdp/fib.rkt
@@ -0,0 +1,17 @@
+;; Natural -> Natural
+;; given n, produce the nth fibonacci number
+(check-expect (fib 0) 0)
+(check-expect (fib 1) 1)
+(check-expect (fib 2) 1)
+(check-expect (fib 7) 13)
+
+; (define (fib n) 0) ; stub
+
+;<template from Natural>
+(define (fib n)
+  (cond
+    [(zero? n) 0]
+    [else
+    (if (= n 1)
+        1
+        (+ (fib (sub1 n)) (fib (- n 2))))]))
-- 
cgit v1.2.3-70-g09d2