diff options
| author | Walt Mankowski <waltman@pobox.com> | 2025-06-17 22:23:43 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2025-06-17 22:23:43 -0400 |
| commit | 8a7f0f41a09880d7271435a87b8a320975cb7eaa (patch) | |
| tree | be52b4c634e985881558e919cbb49137be2aaa69 | |
| parent | fba790ffbf4b5f47d96a6be4d00699d95bb03bb4 (diff) | |
| download | perlweeklychallenge-club-8a7f0f41a09880d7271435a87b8a320975cb7eaa.tar.gz perlweeklychallenge-club-8a7f0f41a09880d7271435a87b8a320975cb7eaa.tar.bz2 perlweeklychallenge-club-8a7f0f41a09880d7271435a87b8a320975cb7eaa.zip | |
Perl code for challenge 2
| -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; |