8 lines
84 B
Text
8 lines
84 B
Text
|
fun fac n
|
||
|
|
if n <= 0
|
||
|
|
return 1
|
||
|
|
else
|
||
|
|
return n * fac (n - 1)
|
||
|
|
endif
|
||
|
|
endfun
|