6 lines
67 B
Mathematica
6 lines
67 B
Mathematica
function f=factor(n)
|
|
if n<=1
|
|
f=1;
|
|
else
|
|
f=factor(n-1)*n;
|
|
end |