From 2bd5f0594278a6086492879b9ff1582e677ca817 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 7 Oct 2020 00:05:30 +0900
Subject: a naive solution of task 080.1

---
 challenge-081/gugod/raku/ch-1.raku | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 challenge-081/gugod/raku/ch-1.raku

diff --git a/challenge-081/gugod/raku/ch-1.raku b/challenge-081/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..b84d053ef5
--- /dev/null
+++ b/challenge-081/gugod/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+# raku challenge-081/gugod/raku/ch-1.raku abcdabcd abcdabcdabcdabcd
+# (abcd abcdabcd)
+
+sub MAIN (Str $A, Str $B) {
+    say common-base-string($A, $B);
+}
+
+sub common-base-string (Str $A, Str $B) {
+    return ( base-string($A) ∩ base-string($B) ).keys;
+}
+
+sub base-string (Str $s) {
+    return (1..$s.chars).grep(
+        -> $n {
+            ($s.chars mod $n == 0)
+            && ($s.substr(0,$n) x ($s.chars div $n)) eq $s
+        }).map(-> $n { $s.substr(0,$n) });
+}
-- 
cgit 


From 1bf08a8547aab0cc7f60923ad26f516afcc6e5ff Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 7 Oct 2020 22:46:49 +0900
Subject: solution of 081.2

---
 challenge-081/gugod/raku/ch-2.raku | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 challenge-081/gugod/raku/ch-2.raku

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(' ');
+    }
+}
-- 
cgit