diff options
| -rw-r--r-- | challenge-326/walt-mankowski/perl/ch-2.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-326/walt-mankowski/perl/ch-2.pl b/challenge-326/walt-mankowski/perl/ch-2.pl new file mode 100644 index 0000000000..434f1f5520 --- /dev/null +++ b/challenge-326/walt-mankowski/perl/ch-2.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +use v5.40; + +my @output; + +for (my $i = 0; $i < @ARGV; $i += 2) { + my $cnt = $ARGV[$i]; + my $val = $ARGV[$i+1]; + push @output, ($val) x $cnt; +} + +printf "(%s)\n", join ", ", @output; |