- Added Raku solution to "Middle 3-digits" task of week 135.

1 files changed, 35 insertions, 0 deletions

diff --git a/challenge-135/mohammad-anwar/raku/ch-1.raku b/challenge-135/mohammad-anwar/raku/ch-1.raku
new file mode 100644
index 0000000000..cd2a807584
--- /dev/null
+++ b/challenge-135/mohammad-anwar/raku/ch-1.raku
@@ -0,0 +1,35 @@
+#!/usr/bin/env raku
+
+=begin pod
+
+Week 135:
+
+    https://theweeklychallenge.org/blog/perl-weekly-challenge-135
+
+Task #1: Middle 3-digits
+
+    You are given an integer.
+
+    Write a script find out the middle 3-digits of the given integer, if possible otherwise throw sensible error.
+
+Inspiration:
+
+    Translated from the Perl solution as below:
+
+    https://github.com/manwar/perlweeklychallenge-club/blob/master/challenge-135/mohammad-anwar/perl/ch-1.pl
+
+=end pod
+
+use v6.d;
+
+sub MAIN(Int $n) {
+
+    my $num = $n.abs;
+    my $len = $num.chars;
+
+    die "ERROR: Too short [$n]."             if $len == 1;
+    die "ERROR: Even number of digits [$n]." if $len %% 2;
+
+    my $i = ($len / 2) - 1;
+    $num.substr($i, 3).say;
+}