ocaml/testasmcomp/tagged-fib.cmm

6 lines
113 B
Plaintext
Raw Normal View History

(function "fib" (n: int)
(if (< n 5)
3
(- (+ (app "fib" (- n 2) int) (app "fib" (- n 4) int)) 1)))