diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-15 02:04:45 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-15 02:04:45 +0200 |
| commit | eab0f24f5bd0ccd3ea371a0b3340b2de146fbbed (patch) | |
| tree | 86e88c13484f2157211e0555b960bc34806160de | |
| parent | a3b8b3243a6d452e2dc159a7b4bf6d5193959689 (diff) | |
| download | perlweeklychallenge-club-eab0f24f5bd0ccd3ea371a0b3340b2de146fbbed.tar.gz perlweeklychallenge-club-eab0f24f5bd0ccd3ea371a0b3340b2de146fbbed.tar.bz2 perlweeklychallenge-club-eab0f24f5bd0ccd3ea371a0b3340b2de146fbbed.zip | |
another variant
| -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 49bde7668b..369c58db15 100644 --- a/challenge-078/markus-holzer/raku/ch-1.raku +++ b/challenge-078/markus-holzer/raku/ch-1.raku @@ -3,8 +3,8 @@ unit sub MAIN( *@numbers where @numbers.all ~~ Int ); say "({ join ", ", leader-elements @numbers })"; sub leader-elements( @stuff ) { - my $max = 0; - reverse @numbers.reverse.grep: -> $n { $n > $max ?? ($max = $n) !! 0 } } + my $max = -Inf; + reverse ( @stuff.reverse.grep: -> $n { $n > $max && ($max = $n) } ) || 0 } #sub leader-elements-recursive( @stuff ) { # sub find( $that, *@the-rest ) { |