Mercurial Mercurial > hg > afl-material / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
progs/fact.rec
author cu
Thu, 28 Sep 2017 11:04:11 +0100
changeset 510 25580bf89ac0
parent 224 70198792c2aa
permissions -rw-r--r--
typos
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
224
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff changeset 
     1
 
def fact(n) = if n == 0 then 1 else n * fact(n - 1);
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff changeset 
     2
 











Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     3


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












Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     4













Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     5


facT(15, 1)












Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     6













Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     7


//fact(15)












Christian Urban <christian dot urban at kcl dot ac dot uk>


parents: 

diff
changeset




     8
















afl-material