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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Evaluate-binomial-coefficients/Perl/evaluate-binomial-coefficients-1.pl Normal file
View file

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

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

@ -0,0 +1,5 @@
sub binomial {
use bigint;
my($n,$k) = @_;
(0+$n)->bnok($k);
}

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

@ -0,0 +1,2 @@
use ntheory qw/binomial/;
print length(binomial(100000,50000)), "\n";