diff -r 6512884e03b4 -r 155426396b5f progs/fact.fun --- a/progs/fact.fun Mon Jul 27 11:02:48 2020 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -// 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)) -