1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-049/mohammad-anwar/raku/ch-1.p6 b/challenge-049/mohammad-anwar/raku/ch-1.p6
new file mode 100644
index 0000000000..5513491a93
--- /dev/null
+++ b/challenge-049/mohammad-anwar/raku/ch-1.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+sub MAIN($num!) {
+    my (Int $res, Int $i);
+    repeat { $res = $num * ++$i; } until $res ~~ /^<[01]>+$/;
+    $res.say;
+}