The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
123 #!/usr/bin/perl# 43SBKZC - fact created by Pip Stuart <Pip@CPAN.Org> to calculate factorials iteratively as part of the Math::BaseCnv packageuse strict; use warnings; use Math::BaseCnv qw(fact); print fact(shift) || die "USAGE: `fact <NumToComputeFactorialOf>`\n";
#!/usr/bin/perl
# 43SBKZC - fact created by Pip Stuart <Pip@CPAN.Org> to calculate factorials iteratively as part of the Math::BaseCnv package
use
strict;
warnings;
Math::BaseCnv
qw(fact)
;
print
fact(
shift
) ||
die
"USAGE: `fact <NumToComputeFactorialOf>`\n"