From f6d71562584db9ba113a2489841d68625969d474 Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Thu, 26 Dec 2019 19:09:11 +1000
Subject: Added solutions ch-1.pl and ch-1.p6

---
 challenge-040/ruben-westerberg/perl/ch-1.pl | 7 +++++++
 challenge-040/ruben-westerberg/raku/ch-1.p6 | 5 +++++
 2 files changed, 12 insertions(+)
 create mode 100755 challenge-040/ruben-westerberg/perl/ch-1.pl
 create mode 100755 challenge-040/ruben-westerberg/raku/ch-1.p6

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