Merge pull request #2616 from mienaikage/challenge-083-1-raku

Add solution for challenge-083-1 in Raku

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-083/daniel-mita/raku/ch-1.raku b/challenge-083/daniel-mita/raku/ch-1.raku
new file mode 100755
index 0000000000..80aa79b221
--- /dev/null
+++ b/challenge-083/daniel-mita/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+sub MAIN ( Str:D $string --> Nil ) {
+  given $string.comb(/\S+/) {
+    when * < 3 {
+      say 'Fewer than 3 words given.';
+      exit 1;
+    }
+
+    .[1..*-2].join.chars.say;
+  }
+}