a solution of 082.1 in Raku

1 files changed, 10 insertions, 0 deletions

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