diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2020-01-07 22:59:15 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2020-01-07 22:59:15 -0500 |
| commit | 38c910924f9b7fe5c5ae004474ac971ac0ce340c (patch) | |
| tree | d59c95c88151d98bddee39b56afd1ee46706f70e | |
| parent | 6f3f9fd164302ca26d009185c6bf68954e8c5a77 (diff) | |
| download | perlweeklychallenge-club-38c910924f9b7fe5c5ae004474ac971ac0ce340c.tar.gz perlweeklychallenge-club-38c910924f9b7fe5c5ae004474ac971ac0ce340c.tar.bz2 perlweeklychallenge-club-38c910924f9b7fe5c5ae004474ac971ac0ce340c.zip | |
Week 42
| -rw-r--r-- | challenge-042/dave-jacoby/perl5/ch-1.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-042/dave-jacoby/perl5/ch-1.pl b/challenge-042/dave-jacoby/perl5/ch-1.pl new file mode 100644 index 0000000000..327ea71539 --- /dev/null +++ b/challenge-042/dave-jacoby/perl5/ch-1.pl @@ -0,0 +1,13 @@ +#!/usr/bin/env perl + +use feature qw{ say }; +use strict; +use warnings; + +# Too easy - sprintf gives us base conversion almost for free + +for my $d ( 0 .. 50 ) { + my $o = sprintf '%o', $d; + say qq{Decimal $d = Octal $o}; +} + |