- Added Raku solutions to Challenge 046.

2 files changed, 49 insertions, 0 deletions

diff --git a/challenge-046/mohammad-anwar/raku/ch-1.p6 b/challenge-046/mohammad-anwar/raku/ch-1.p6
new file mode 100644
index 0000000000..3e823329eb
--- /dev/null
+++ b/challenge-046/mohammad-anwar/raku/ch-1.p6
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+sub MAIN() {
+
+    my @messages = (
+        'P + 2 l ! a t o',
+        '1 e 8 0 R $ 4 u',
+        '5 - r ] + a > /',
+        'P x w l b 3 k \\',
+        '2 e 3 5 R 8 y u',
+        '< ! r ^ ( ) k 0'
+    );
+
+    my $table = [];
+    for @messages -> $message {
+        my $column = 0;
+        for $message.split(" ") -> $char {
+            $table.[$column++].{$char}++;
+        }
+    }
+
+    my $message;
+    for 0..$table.elems -> $i {
+        for $table.[$i] -> $row {
+            $message ~= $row.sort(*.values).reverse.[0].keys;
+        }
+    }
+
+    say $message;
+}
diff --git a/challenge-046/mohammad-anwar/raku/ch-2.p6 b/challenge-046/mohammad-anwar/raku/ch-2.p6
new file mode 100644
index 0000000000..53085705b5
--- /dev/null
+++ b/challenge-046/mohammad-anwar/raku/ch-2.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+sub MAIN() {
+
+    my @rooms = 1 x 500;
+    for 2 .. 500 -> $employee {
+        my $room_number = $employee;
+        while $room_number <= 500 {
+            @rooms[$room_number] = (@rooms[$room_number]) ?? 0 !! 1;
+            $room_number += $employee;
+        }
+    }
+
+    .say unless @rooms[$_] for 1..500;
+}