From 0132927c8dde536e4265667f608349a1c02f5646 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 14 Jun 2020 18:58:53 +0100
Subject: - Tidied up Raku solution.

---
 challenge-064/mohammad-anwar/raku/ch-2.p6 | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/challenge-064/mohammad-anwar/raku/ch-2.p6 b/challenge-064/mohammad-anwar/raku/ch-2.p6
index b53f4f6160..914963ffcf 100644
--- a/challenge-064/mohammad-anwar/raku/ch-2.p6
+++ b/challenge-064/mohammad-anwar/raku/ch-2.p6
@@ -5,13 +5,7 @@ use v6.d;
 sub MAIN(Str :$string = "perlweeklychallenge",
          :@words where .all ~~ Str = ("weekly", "challenge", "perl")) {
 
-    my @matched = word-break($string, @words);
-
-    (@matched.elems)
-    ??
-    (@matched.join(", ").say)
-    !!
-    (say "None matched.");
+    word-break($string, @words).join(", ").say;
 }
 
 sub word-break(Str $string, @words where .all ~~ Str) {
-- 
cgit