The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678 #!/usr/bin/perl -w# 43SBPRK - choo created by Pip Stuart <Pip@CPAN.Org># to calculate n choose muse strict; use Math::BaseCnv qw(:all);my $ennn = shift; my $emmm = shift;die "USAGE: `choo n m` to calculate n choose m\n" unless(defined($ennn) && defined($emmm));print choo($ennn, $emmm);
#!/usr/bin/perl -w
# 43SBPRK - choo created by Pip Stuart <Pip@CPAN.Org>
# to calculate n choose m
use
strict;
Math::BaseCnv
qw(:all)
;
my
$ennn
=
shift
$emmm
die
"USAGE: `choo n m` to calculate n choose m\n"
unless
(
defined
) &&
));
print
choo(
,
);