8 lines
160 B
Text
8 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:
|