feat: 9.5.9
This commit is contained in:
parent
cb1753732b
commit
35f43a7909
1084 changed files with 558985 additions and 0 deletions
9
examples/fib.ss
Normal file
9
examples/fib.ss
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
;;; simple fibonacci function
|
||||
|
||||
;;; uses trace-lambda to show the nesting
|
||||
|
||||
(define fib
|
||||
(trace-lambda fib (x)
|
||||
(if (<= x 1)
|
||||
1
|
||||
(+ (fib (- x 1)) (fib (- x 2))))))
|
||||
Reference in a new issue