progs/fun-tests/fact.fun
author update
Mon, 05 Oct 2020 17:46:12 +0100 (2020-10-05)
changeset 774 42733adf2a48
parent 742 b5b5583a3a08
child 790 31a9f89776a3
permissions -rw-r--r--
updated
// a simple factorial program
// (including a tail recursive version)


def fact(n) =
  if n == 0 then 1 else n * fact(n - 1);

def facT(n, acc) =
  if n == 0 then acc else facT(n - 1, n * acc);

def facTi(n) = facT(n, 1);

//fact(10)
//facTi(10)

write(facTi(6))