diff options
| -rwxr-xr-x | challenge-109/maxim-kolodyazhny/raku/ch-2.raku | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-109/maxim-kolodyazhny/raku/ch-2.raku b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku index bc524a2fef..fb1dc3adfe 100755 --- a/challenge-109/maxim-kolodyazhny/raku/ch-2.raku +++ b/challenge-109/maxim-kolodyazhny/raku/ch-2.raku @@ -1,8 +1,8 @@ #!/usr/bin/env raku multi sub MAIN ( $_ where { /\,/ } ) { samewith .split: <,> } -multi sub MAIN ( $_ where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) { - .permutations +multi sub MAIN ( *@n where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) { + @n.permutations .first({ [==] .rotor( <2 -1 3 -1 3 -1>.pairup )>>.sum }) @@ -11,9 +11,8 @@ multi sub MAIN ( $_ where { .unique and .all ~~ /^ \d+ $/ and .elems == 7 }) { sub USAGE() { print qq:to/EOH/; - Usage: {$*PROGRAM-NAME} [1,2,3...,7] + Usage: {$*PROGRAM-NAME} [1,2,3,...,7] or [1 2 3 ... 7] Prints the answer for "Four Squares Puzzle" EOH } - |