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