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