diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-10-01 23:53:04 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-10-01 23:53:04 +0100 |
| commit | 90be108b1a65ce7f689368d73b5249c7644b2c08 (patch) | |
| tree | c9c53f5d9b1b937ea3904c421b50bd28448d9e25 | |
| parent | ea75e649e0ab45cd1ce2961e317ec1c157256937 (diff) | |
| parent | 53192c771ac19c6887da1ad34e0ed9a60faa442c (diff) | |
| download | perlweeklychallenge-club-90be108b1a65ce7f689368d73b5249c7644b2c08.tar.gz perlweeklychallenge-club-90be108b1a65ce7f689368d73b5249c7644b2c08.tar.bz2 perlweeklychallenge-club-90be108b1a65ce7f689368d73b5249c7644b2c08.zip | |
Merge pull request #6820 from JRaspass/master
Challenge #184
| -rw-r--r-- | challenge-184/james-raspass/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-184/james-raspass/ch-2.pl | 12 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-184/james-raspass/ch-1.pl b/challenge-184/james-raspass/ch-1.pl new file mode 100644 index 0000000000..36b3a21e16 --- /dev/null +++ b/challenge-184/james-raspass/ch-1.pl @@ -0,0 +1,9 @@ +use v5.36; + +my @default = ( [qw/ab1234 cd5678 ef1342/], [qw/pq1122 rs3334/] ); +my @input = @ARGV ? @ARGV : $default[rand @default]->@*; + +my $i = '00'; +my @output = map s/../$i++/er, @input; + +say do { local $" = ', '; "Input: @input\nOutput: @output" }; diff --git a/challenge-184/james-raspass/ch-2.pl b/challenge-184/james-raspass/ch-2.pl new file mode 100644 index 0000000000..33c0cc6f5b --- /dev/null +++ b/challenge-184/james-raspass/ch-2.pl @@ -0,0 +1,12 @@ +use v5.36; + +my @default = ( ['a 1 2 b 0', '3 c 4 d'], ['1 2', 'p q r', 's 3', '4 5 t'] ); +my @input = @ARGV ? @ARGV : $default[rand @default]->@*; + +say do { local $" = "', '"; "Input: ['@input']" }; + +my @digits = map [/([0-9])/g], @input; +my @alphas = map [/([a-z])/g], @input; + +my sub str { local $" = ', '; qq/[@{[map @$_ ? "[@$_]" : (), @_]}]/ } +say 'Output: ', str(@digits), ' and ', str(@alphas); |