From 23333dc2ae7acca2680b0739b75c4c8b3f4b861a Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 2 Dec 2020 08:37:34 +0900
Subject: a solution for gcd-sum.

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

diff --git a/challenge-089/gugod/raku/ch-1.raku b/challenge-089/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..639f4c50d2
--- /dev/null
+++ b/challenge-089/gugod/raku/ch-1.raku
@@ -0,0 +1,8 @@
+
+sub gcdsum (Int $N){
+    (1..$N).combinations(2).map(-> ($a, $b) { $a gcd $b }).sum();
+}
+
+for @*ARGS -> $n {
+    say gcdsum( $n.Int );
+}
-- 
cgit