From bf336a8240eca12955e0c716a8b941fb8f9d7128 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Mon, 5 Oct 2020 15:06:50 +0200
Subject: better

---
 challenge-081/markus-holzer/raku/ch-2.raku | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

diff --git a/challenge-081/markus-holzer/raku/ch-2.raku b/challenge-081/markus-holzer/raku/ch-2.raku
index f905e35692..ec328c4e19 100644
--- a/challenge-081/markus-holzer/raku/ch-2.raku
+++ b/challenge-081/markus-holzer/raku/ch-2.raku
@@ -1,19 +1,14 @@
 unit sub MAIN( $file where $file.IO.f );
 
+my @ignore = <. ! ? " ( ) , 's -->;
+
 my $words = $file
     .IO
     .slurp
-    .subst(/ <[ \. \" \( \) \, ]> | \'s | \-\- /, ' ', :g)
+    .subst( /@ignore/, ' ', :g )
     .words
-    .Bag;
-
-my $freqs = $words
-    .values
-    .sort
-    .squish;
+    .Bag
+    .classify( *.value );
 
-for @$freqs -> $f {
-    say join " ", $f, |$words
-        .grep( *.value == $f )
-        .sort
-        .map: *.key }
\ No newline at end of file
+say join " ", $_, slip sort $words{$_}>>.key
+    for sort $words.keys;
\ No newline at end of file
-- 
cgit