diff options
| -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: " "}) |