6 lines
107 B
Text
6 lines
107 B
Text
(define fib-0
|
|
V2 V1 0 -> V2
|
|
V2 V1 N -> (fib-0 V1 (+ V2 V1) (1- N)))
|
|
|
|
(define fib
|
|
N -> (fib-0 0 1 N))
|