7 lines
160 B
Text
7 lines
160 B
Text
RecFact := proc( n :: nonnegint )
|
|
if n = 0 or n = 1 then
|
|
1
|
|
else
|
|
n * thisproc( n - 1 )
|
|
end if
|
|
end proc:
|