Adding HtDP version of fibonacci, pre @htdp tags

1 files changed, 17 insertions, 0 deletions

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))))]))