Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
ocaml/testasmcomp/tagged-fib.cmm

6 lines
113 B
Plaintext
Raw Blame History

(function "fib" (n: int)
(if (< n 5)
3
(- (+ (app "fib" (- n 2) int) (app "fib" (- n 4) int)) 1)))
Reference in New Issue View Git Blame Copy Permalink