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