From 34ffa543b02e35a80e91461bef167732eb224704 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Mon, 12 Oct 2020 21:38:03 +0900
Subject: a solution of 082.1 in Raku

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

diff --git a/challenge-082/gugod/raku/ch-1.raku b/challenge-082/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..f2d918b47b
--- /dev/null
+++ b/challenge-082/gugod/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+sub MAIN (Int $M, Int $N) {
+    my ($a, $b) = ($M, $N).sort;
+    say common-factors($a, $b);
+}
+
+sub common-factors (Int $a, Int $b) {
+    (1, 2..$a/2, $a).flat.grep(-> $n { 0 == $a % $n == $b % $n });
+}
-- 
cgit 


From f3c2e22b5fdb3804c142f85fc6f9b9e375b424d0 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Tue, 13 Oct 2020 00:09:51 +0900
Subject: a solution of 082.2 in raku

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

diff --git a/challenge-082/gugod/raku/ch-2.raku b/challenge-082/gugod/raku/ch-2.raku
new file mode 100644
index 0000000000..047c4e0c4d
--- /dev/null
+++ b/challenge-082/gugod/raku/ch-2.raku
@@ -0,0 +1,32 @@
+#!/usr/bin/env raku
+
+sub MAIN (Str $A, Str $B, Str $C) {
+    say interleaves($A, $B, $C) ?? 1 !! 0;
+}
+
+sub interleaves (Str $A, Str $B, Str $C) {
+    my @stash;
+    @stash.push([-1, -1]);
+
+    my $i = 0;
+    while $i < $C.chars && @stash.elems > 0 {
+        my $c = $C.substr($i++, 1);
+        my @stash2 = gather {
+            while @stash.elems > 0 {
+                my $it = @stash.pop();
+                my $a = $A.substr($it[0]+1, 1);
+                my $b = $B.substr($it[1]+1, 1);
+                if $c eq $a {
+                    take [$it[0]+1, $it[1]];
+                }
+                if $c eq $b {
+                    take [$it[0], $it[1]+1];
+                }
+            }
+        };
+
+        @stash = @stash2.unique(:with(&[eqv]));
+    }
+
+    return $i == $C.chars && @stash.elems > 0 && @stash[0][0].succ == $A.chars && @stash[0][1].succ == $B.chars;
+}
-- 
cgit