From 3c075153f67529a9e03c32424f832b19841cc7da Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Thu, 22 Oct 2020 23:36:28 +0200 Subject: cosmetics --- challenge-083/markus-holzer/raku/ch-2 | 11 +++++++++++ challenge-083/markus-holzer/raku/ch-2.raku | 17 ++++++++--------- challenge-083/markus-holzer/raku/x.raku | 1 + 3 files changed, 20 insertions(+), 9 deletions(-) create mode 100644 challenge-083/markus-holzer/raku/ch-2 create mode 100644 challenge-083/markus-holzer/raku/x.raku diff --git a/challenge-083/markus-holzer/raku/ch-2 b/challenge-083/markus-holzer/raku/ch-2 new file mode 100644 index 0000000000..5d9dc7662f --- /dev/null +++ b/challenge-083/markus-holzer/raku/ch-2 @@ -0,0 +1,11 @@ +unit sub MAIN( *@A ); + +my &neg = *.grep: * < 0; + +say + neg # find and count all negative numbers of + ( [X] map { +$_, -$_ }, @A ) # all possible candidates + .classify( *.sum ) # grouped by sum + .grep( *.key > -1 ) # filtered where sum is positive + .sort( *.key ) # sorted by sum + .head.value # closest to zero + .min( &neg ) # the one with the least flips \ No newline at end of file diff --git a/challenge-083/markus-holzer/raku/ch-2.raku b/challenge-083/markus-holzer/raku/ch-2.raku index 9bc6e3ee33..cac6e2cf7c 100644 --- a/challenge-083/markus-holzer/raku/ch-2.raku +++ b/challenge-083/markus-holzer/raku/ch-2.raku @@ -1,12 +1,11 @@ unit sub MAIN( *@A ); -my &neg = *.grep: * < 0; - -say + neg # find and count all negative numbers of - ( [X] map { +$_, -$_ }, @A ) # all possible candidates - .classify( *.sum ) # grouped by sum - .grep( *.key > -1 ) # filtered where sum is positive - .sort( *.key ) # sorted by sum - .head.value # closest to zero - .min( &neg ) # the one with the least flips +my &less-than-zero = *.grep: * < 0; +say +less-than-zero # find and count all negative numbers of + ( [X] map { +$_, -$_ }, @A ) # all possible candidates + .classify( *.sum ) # grouped by sum + .grep( *.key > -1 ) # filtered where sum is positive + .sort( *.key ) # sorted by sum + .head.value # closest to zero + .min( &less-than-zero ) # the one with the least flips \ No newline at end of file diff --git a/challenge-083/markus-holzer/raku/x.raku b/challenge-083/markus-holzer/raku/x.raku new file mode 100644 index 0000000000..ac8522fb58 --- /dev/null +++ b/challenge-083/markus-holzer/raku/x.raku @@ -0,0 +1 @@ +xxx \ No newline at end of file -- cgit From d3dfa7d7291db1d5b92f255ee53f6d4cc8962d8f Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Thu, 22 Oct 2020 23:39:33 +0200 Subject: cosmetics --- challenge-083/markus-holzer/raku/ch-2 | 11 ----------- challenge-083/markus-holzer/raku/x.raku | 1 - 2 files changed, 12 deletions(-) delete mode 100644 challenge-083/markus-holzer/raku/ch-2 delete mode 100644 challenge-083/markus-holzer/raku/x.raku diff --git a/challenge-083/markus-holzer/raku/ch-2 b/challenge-083/markus-holzer/raku/ch-2 deleted file mode 100644 index 5d9dc7662f..0000000000 --- a/challenge-083/markus-holzer/raku/ch-2 +++ /dev/null @@ -1,11 +0,0 @@ -unit sub MAIN( *@A ); - -my &neg = *.grep: * < 0; - -say + neg # find and count all negative numbers of - ( [X] map { +$_, -$_ }, @A ) # all possible candidates - .classify( *.sum ) # grouped by sum - .grep( *.key > -1 ) # filtered where sum is positive - .sort( *.key ) # sorted by sum - .head.value # closest to zero - .min( &neg ) # the one with the least flips \ No newline at end of file diff --git a/challenge-083/markus-holzer/raku/x.raku b/challenge-083/markus-holzer/raku/x.raku deleted file mode 100644 index ac8522fb58..0000000000 --- a/challenge-083/markus-holzer/raku/x.raku +++ /dev/null @@ -1 +0,0 @@ -xxx \ No newline at end of file -- cgit