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

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Evaluate-binomial-coefficients/Maple/evaluate-binomial-coefficients.maple Normal file
View file

@ -0,0 +1,3 @@
convert(binomial(n,k),factorial);
binomial(5,3);

2
Task/Evaluate-binomial-coefficients/Perl/evaluate-binomial-coefficients.pl
View file

@ -1,7 +1,7 @@
sub binomial {
use bigint;
my ($r, $n, $k) = (1, @_);
for (1 .. $k) { $r *= $n + 1 - $_, $r /= $_ }
for (1 .. $k) { $r *= $n + 1 - $_; $r /= $_ }
$r;
}

2
Task/Evaluate-binomial-coefficients/TXR/evaluate-binomial-coefficients-1.txr Normal file
View file

@ -0,0 +1,2 @@
$ txr -p '(n-choose-k 20 15)'
15504

2
Task/Evaluate-binomial-coefficients/TXR/evaluate-binomial-coefficients-2.txr Normal file
View file

@ -0,0 +1,2 @@
$ txr -p '(n-perm-k 20 15)'
20274183401472000