Merge pull request #3953 from k-mx/master

Challenge 109 part 2 by Maxim Kolodyazhny

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-109/maxim-kolodyazhny/raku/ch-2.raku b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku
new file mode 100755
index 0000000000..bc524a2fef
--- /dev/null
+++ b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+multi sub MAIN ( $_  where { /\,/ } ) { samewith .split: <,> }
+multi sub MAIN ( $_  where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) {
+    .permutations
+        .first({
+                [==] .rotor( <2 -1 3 -1 3 -1>.pairup )>>.sum
+            })
+        .say
+}
+
+sub USAGE() {
+    print qq:to/EOH/;
+    Usage: {$*PROGRAM-NAME} [1,2,3...,7]
+
+    Prints the answer for "Four Squares Puzzle"
+EOH
+}
+