aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Factorial/Maple/factorial-1.maple Normal file
View file

@ -0,0 +1,2 @@
> 5!;
120

7
Task/Factorial/Maple/factorial-2.maple Normal file
View file

@ -0,0 +1,7 @@
RecFact := proc( n :: nonnegint )
if n = 0 or n = 1 then
1
else
n * thisproc( n - 1 )
end if
end proc:

4
Task/Factorial/Maple/factorial-3.maple Normal file
View file

@ -0,0 +1,4 @@
> seq( RecFact( i ) = i!, i = 0 .. 10 );
1 = 1, 1 = 1, 2 = 2, 6 = 6, 24 = 24, 120 = 120, 720 = 720, 5040 = 5040,
40320 = 40320, 362880 = 362880, 3628800 = 3628800

4
Task/Factorial/Maple/factorial-4.maple Normal file
View file

@ -0,0 +1,4 @@
IterFact := proc( n :: nonnegint )
local i;
mul( i, i = 2 .. n )
end proc:

4
Task/Factorial/Maple/factorial-5.maple Normal file
View file

@ -0,0 +1,4 @@
> seq( IterFact( i ) = i!, i = 0 .. 10 );
1 = 1, 1 = 1, 2 = 2, 6 = 6, 24 = 24, 120 = 120, 720 = 720, 5040 = 5040,
40320 = 40320, 362880 = 362880, 3628800 = 3628800