6 lines
100 B
Plaintext
6 lines
100 B
Plaintext
|
letrec fact =
|
||
|
fun n -> if (n = 0 )
|
||
|
then 1
|
||
|
else n *((fact) (n-1))
|
||
|
in (fact) 5
|