8 lines
97 B
Mathematica
8 lines
97 B
Mathematica
|
function f=fac(n)
|
||
|
|
if n==0
|
||
|
|
f=1;
|
||
|
|
return
|
||
|
|
else
|
||
|
|
f=n*fac(n-1);
|
||
|
|
end
|