1. HongboZhang
  2. ocaml

Source

ocaml / testasmcomp / tagged-fib.cmm

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