The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123 #!/usr/bin/perl# 446KXxq - summ created by Pip Stuart <Pip@CPAN.Org> to calculate summations down to one iteratively as part of the Math::BaseCnv packageuse strict; use warnings; use Math::BaseCnv qw(summ); print summ(shift) || die "USAGE: `summ <NumToComputeSummDownToOneOf>`\n";
#!/usr/bin/perl
# 446KXxq - summ created by Pip Stuart <Pip@CPAN.Org> to calculate summations down to one iteratively as part of the Math::BaseCnv package
use
strict;
warnings;
Math::BaseCnv
qw(summ)
;
print
summ(
shift
) ||
die
"USAGE: `summ <NumToComputeSummDownToOneOf>`\n"