diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-02 22:52:12 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-02 22:52:12 +0100 |
| commit | ef3f1c49f3c9f9569d35e720ea14f03e22f75ba6 (patch) | |
| tree | b9184451b4814f119200e1a8ee7d5275df1bc512 | |
| parent | 8124d3d8cd88501e24286220ffdfc8eda30c1404 (diff) | |
| download | perlweeklychallenge-club-ef3f1c49f3c9f9569d35e720ea14f03e22f75ba6.tar.gz perlweeklychallenge-club-ef3f1c49f3c9f9569d35e720ea14f03e22f75ba6.tar.bz2 perlweeklychallenge-club-ef3f1c49f3c9f9569d35e720ea14f03e22f75ba6.zip | |
condensed to one liner
| -rw-r--r-- | challenge-050/markus-holzer/raku/ch-2.p6 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-050/markus-holzer/raku/ch-2.p6 b/challenge-050/markus-holzer/raku/ch-2.p6 index 9fc3d71e46..8daaa8d456 100644 --- a/challenge-050/markus-holzer/raku/ch-2.p6 +++ b/challenge-050/markus-holzer/raku/ch-2.p6 @@ -1,8 +1,6 @@ sub noble( @n ) { - my $n = ( @n = @n.sort ).end; - my $i = ( 0..$n ).first({ @n[ $^i ] == $n - $^i }); - try @n[ $i ]; # $i can be Nil + ( $_ = @n.sort.kv.batch(2).grep({ .[1] == @n.end - .[0] }).first ) ?? $_[1] !! Nil; } say noble( [2, 4, 0, 3] ); |