- Added Raku solution to the Challenge 047.

1 files changed, 21 insertions, 0 deletions

diff --git a/challenge-047/mohammad-anwar/raku/ch-2.p6 b/challenge-047/mohammad-anwar/raku/ch-2.p6
new file mode 100644
index 0000000000..1351783a93
--- /dev/null
+++ b/challenge-047/mohammad-anwar/raku/ch-2.p6
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl6
+
+use v6.d;
+
+sub MAIN() {
+
+    my $start = 99;
+    my $count = 0;
+
+    while $count <= 20 {
+        $start++;
+
+        my @d = $start.split("");
+        my $divisor = sprintf("%d%d", @d[1].Int, @d[3].Int);
+
+        unless $start % $divisor {
+            say sprintf("%d / %d", $start, $divisor);
+            $count++;
+        }
+    }
+}