14 lines
192 B
Text
14 lines
192 B
Text
|
/* error : procedure returns value and procedure is used in arexpr */
|
||
|
|
let
|
||
|
|
|
||
|
|
/* calculate n! */
|
||
|
|
function nfactor(n: int) =
|
||
|
|
if n = 0
|
||
|
|
then 1
|
||
|
|
else n * nfactor(n-1)
|
||
|
|
|
||
|
|
in
|
||
|
|
nfactor(10)
|
||
|
|
end
|
||
|
|
|