tiger-compiler/tests/good/fact.tig


1
2
3
4
5
6
7
8
9
10
11

/* define a recursive function */
let
  /* calculate n! */
  function fact(n : int) : int =
    if  n = 0
      then 1
      else n * fact(n - 1)
in
  print_int(fact(10));
  print("\n")
end