solution of 081.2

1 files changed, 28 insertions, 0 deletions

diff --git a/challenge-081/gugod/raku/ch-2.raku b/challenge-081/gugod/raku/ch-2.raku
new file mode 100644
index 0000000000..62a014f118
--- /dev/null
+++ b/challenge-081/gugod/raku/ch-2.raku
@@ -0,0 +1,28 @@
+#!/usr/bin/env raku
+
+sub MAIN (Str $input = 'input') {
+    print-frequency-table( word-frequency( IO::Path.new($input) ) );
+}
+
+sub word-frequency ( $fh ) {
+    my %freq;
+    my $prev = '';
+    for $fh.split(/<?wb>/) -> $token {
+        if $token.match(/<:Letter>/) && !($token eq "s" && $prev eq "'") {
+            %freq{$token} += 1;
+        }
+        $prev = $token;
+    }
+
+    return %freq;
+}
+
+sub print-frequency-table ( %freq ) {
+    my %rfreq;
+    for %freq.pairs -> $it {
+        %rfreq{ $it.value }.append( $it.key );
+    }
+    for %rfreq.keys.sort -> $n {
+        say $n ~ ' ' ~ %rfreq{$n}.sort.join(' ');
+    }
+}