miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clean up and rearrange

Browse Source
This commit is contained in:
Nathan Braswell
2022-05-07 16:09:16 -04:00
parent 08c01257f3
commit ca68826fbc
52 changed files with 577 additions and 344 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fib_test/fib_let.scm Normal file
View File

@@ -0,0 +1,7 @@
(pretty-print ((letrec ((fib (lambda (n) (cond ((equal? n 0) 1)
((equal? n 1) 1)
(#t (let (
(r1 (fib (- n 1)))
(r2 (fib (- n 2)))
) (+ r1 r2)))))))
fib) (read (open-input-string (list-ref (command-line) 1)))))