diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-04-26 05:00:46 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-04-26 05:00:46 +0100 |
| commit | c6c6dd54406ec4f3f9854b4723a45ccb57e12af6 (patch) | |
| tree | cda393faff210c82822923d6ebab5d56ec9cadb7 | |
| parent | 3360112e0cc9957804fad3ad7cdf9ba1912c99b8 (diff) | |
| parent | 7c85b9cbd2810d85025495c46ebf4db9c73b0ed9 (diff) | |
| download | perlweeklychallenge-club-c6c6dd54406ec4f3f9854b4723a45ccb57e12af6.tar.gz perlweeklychallenge-club-c6c6dd54406ec4f3f9854b4723a45ccb57e12af6.tar.bz2 perlweeklychallenge-club-c6c6dd54406ec4f3f9854b4723a45ccb57e12af6.zip | |
Merge pull request #3958 from k-mx/master
Improvement for ch-2.raku by Maxim Kolodyazhny
| -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 } - |