mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Fibonacci-sequence/Qi/fibonacci-sequence-2.qi

7 lines
107 B
Plaintext
Raw Permalink Blame History

(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))
Reference in New Issue View Git Blame Copy Permalink