diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-09-15 08:01:41 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-15 08:01:41 +0100 |
| commit | 125aa8d5d7545fae0ad1266edb8d45b23ad48470 (patch) | |
| tree | 654c65da95461d667ff81045b81c68e49704eb92 | |
| parent | 1bf55cbb4eb19ec06f61302b877f74c1a1b0f7f9 (diff) | |
| parent | ab01a45bc3d4ca9de131a86f0ddda5f1e1a393a9 (diff) | |
| download | perlweeklychallenge-club-125aa8d5d7545fae0ad1266edb8d45b23ad48470.tar.gz perlweeklychallenge-club-125aa8d5d7545fae0ad1266edb8d45b23ad48470.tar.bz2 perlweeklychallenge-club-125aa8d5d7545fae0ad1266edb8d45b23ad48470.zip | |
Merge pull request #2297 from holli-holzer/master
C, Final answer
| -rw-r--r-- | challenge-078/markus-holzer/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-078/markus-holzer/raku/ch-1.raku b/challenge-078/markus-holzer/raku/ch-1.raku index 369c58db15..d813f9d765 100644 --- a/challenge-078/markus-holzer/raku/ch-1.raku +++ b/challenge-078/markus-holzer/raku/ch-1.raku @@ -2,9 +2,9 @@ unit sub MAIN( *@numbers where @numbers.all ~~ Int ); say "({ join ", ", leader-elements @numbers })"; -sub leader-elements( @stuff ) { +sub leader-elements( @n ) { my $max = -Inf; - reverse ( @stuff.reverse.grep: -> $n { $n > $max && ($max = $n) } ) || 0 } + ( reverse @n.reverse.grep: -> $n { $max = $n but True if $n > $max } ) || 0 } #sub leader-elements-recursive( @stuff ) { # sub find( $that, *@the-rest ) { |