diff options
| -rw-r--r-- | challenge-089/gugod/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-089/gugod/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-089/gugod/raku/ch-1.raku | 8 | ||||
| -rw-r--r-- | challenge-089/gugod/raku/ch-2.raku | 27 |
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 "+-----+"; +} |