diff options
| -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}; +} + |