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 Christian Urban <christian dot urban at kcl dot ac dot uk>
Fri, 07 Nov 2014 16:01:50 +0000
changeset 301 e8c0269c8ff5
parent 224 70198792c2aa
permissions -rw-r--r--
update
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