feat: add solution for challenge 331 from BarrOff

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-331/barroff/raku/ch-1.p6 b/challenge-331/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..2668667bdc
--- /dev/null
+++ b/challenge-331/barroff/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub last-word(Str $str --> Int) {
+    ($str.words)[* - 1].chars;
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is last-word("The Weekly Challenge"), 9, 'works for "The Weekly Challenge"';
+    is last-word("   Hello   World    "), 5, 'works for "   Hello   World    "';
+    is last-word("Let's begin the fun"), 3, 'works for "Let\'s begin the fun"';
+}
+
+#| Take user provided number like "Perl Weekly Challenge" l a
+multi sub MAIN(*@words) {
+    say last-word(@words.join(' '));
+}