Merge pull request #2907 from gugod/gugod-089

gugod's solution to pwc 089

4 files changed, 37 insertions, 0 deletions

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