bunch more testcases

2022-04-12 00:14:09 -04:00
parent 55afa8977e
commit c6071dbbe1
17 changed files with 508 additions and 0 deletions
--- a/fib.scm
+++ b/fib.scm
@@ -0,0 +1,4 @@
+(pretty-print ((letrec ((fib (lambda (n) (cond ((equal? n 0) 1)
+                                               ((equal? n 1) 1)
+                                               (#t (+ (fib (- n 1)) (fib (- n 2))))))))
+                        fib) (read (open-input-string (list-ref (command-line) 1)))))