diff options
| author | Ruben Westerberg <drclaw@mac.com> | 2019-12-26 19:09:11 +1000 |
|---|---|---|
| committer | Ruben Westerberg <drclaw@mac.com> | 2019-12-26 19:09:11 +1000 |
| commit | f6d71562584db9ba113a2489841d68625969d474 (patch) | |
| tree | 4547d8b47c52df43acbfce3c79ff772490c203f7 /challenge-040 | |
| parent | 680c45532e49d93c882dc062d9c7394ce8ddac31 (diff) | |
| download | perlweeklychallenge-club-f6d71562584db9ba113a2489841d68625969d474.tar.gz perlweeklychallenge-club-f6d71562584db9ba113a2489841d68625969d474.tar.bz2 perlweeklychallenge-club-f6d71562584db9ba113a2489841d68625969d474.zip | |
Added solutions ch-1.pl and ch-1.p6
Diffstat (limited to 'challenge-040')
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl/ch-1.pl | 7 | ||||
| -rwxr-xr-x | challenge-040/ruben-westerberg/raku/ch-1.p6 | 5 |
2 files changed, 12 insertions, 0 deletions
diff --git a/challenge-040/ruben-westerberg/perl/ch-1.pl b/challenge-040/ruben-westerberg/perl/ch-1.pl new file mode 100755 index 0000000000..2de3cd36fa --- /dev/null +++ b/challenge-040/ruben-westerberg/perl/ch-1.pl @@ -0,0 +1,7 @@ +#!/usr/bin/env perl +use strict; +use warnings; +my @aoa=([qw<I L O V E Y O U>], [qw<2 4 0 3 2 0 1 9>], [qw<! ? £ $ % ^ & * >]); +my @indexes=@ARGV==0?(2,3):@ARGV; + +print "$_\n" for map {my $i=$_; join " ", map {$aoa[$_]->[$i]} 0..$#aoa} @indexes; diff --git a/challenge-040/ruben-westerberg/raku/ch-1.p6 b/challenge-040/ruben-westerberg/raku/ch-1.p6 new file mode 100755 index 0000000000..4a0ee4854f --- /dev/null +++ b/challenge-040/ruben-westerberg/raku/ch-1.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env perl6 + +my @aoa=( <I L O V E Y O U>, <2 4 0 3 2 0 1 9>, <! ? £ $ % ^ & * >); +my @indexes=@*ARGS==0??(2,3)!!@*ARGS; +put $_ for @indexes.map({@aoa[*;$_].join: " "}) |