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 


From d706e9b39ca9a47f70cfcb39bb5ab0a5e3c95595 Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 2 Dec 2020 09:04:16 +0900
Subject: a solution for magic square

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

diff --git a/challenge-089/gugod/raku/ch-2.raku b/challenge-089/gugod/raku/ch-2.raku
new file mode 100644
index 0000000000..6c8fe1b262
--- /dev/null
+++ b/challenge-089/gugod/raku/ch-2.raku
@@ -0,0 +1,27 @@
+
+my @magic-squares = (1..9).permutations.grep(
+    -> ($a, $b, $c, $d, $e, $f, $g, $h, $i) {
+        all(
+            $a + $b + $c == 15,
+            $d + $e + $f == 15,
+            $g + $h + $i == 15,
+            $a + $d + $g == 15,
+            $b + $e + $h == 15,
+            $c + $f + $i == 15,
+            $a + $e + $i == 15,
+            $c + $e + $g == 15,
+        )
+    }
+);
+
+for @magic-squares -> @m {
+    print-magic-square(@m);
+}
+
+sub print-magic-square (@m) {
+    say "+-----+";
+    say "|" ~ @m[0,1,2].join(" ") ~ "|";
+    say "|" ~ @m[3,4,5].join(" ") ~ "|";
+    say "|" ~ @m[6,7,8].join(" ") ~ "|";
+    say "+-----+";
+}
-- 
cgit 


From 933af10ed6fc84ccff3da2a08638cdeb41bf33ff Mon Sep 17 00:00:00 2001
From: Kang-min Liu <gugod@gugod.org>
Date: Wed, 2 Dec 2020 19:52:54 +0900
Subject: blog posts.

---
 challenge-089/gugod/blog.txt  | 1 +
 challenge-089/gugod/blog1.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-089/gugod/blog.txt
 create mode 100644 challenge-089/gugod/blog1.txt

diff --git a/challenge-089/gugod/blog.txt b/challenge-089/gugod/blog.txt
new file mode 100644
index 0000000000..b6c73e9e98
--- /dev/null
+++ b/challenge-089/gugod/blog.txt
@@ -0,0 +1 @@
+https://gugod.org/2020/12/pwc-089-en/
diff --git a/challenge-089/gugod/blog1.txt b/challenge-089/gugod/blog1.txt
new file mode 100644
index 0000000000..fc047406e1
--- /dev/null
+++ b/challenge-089/gugod/blog1.txt
@@ -0,0 +1 @@
+https://gugod.org/2020/12/pwc-089/
-- 
cgit