diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-09-19 16:35:50 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-19 16:35:50 +0100 |
| commit | 211fa8fa3233e581f40f5ba09f44b4a052497873 (patch) | |
| tree | deb95bdb77094f7f64d529d8cc8d944f2f2f3358 | |
| parent | acd138e692082f4a50a672c0ccb9eb362e236625 (diff) | |
| parent | 38d2dc12f1bf8988d8d4afca6a805dc382ecbe74 (diff) | |
| download | perlweeklychallenge-club-211fa8fa3233e581f40f5ba09f44b4a052497873.tar.gz perlweeklychallenge-club-211fa8fa3233e581f40f5ba09f44b4a052497873.tar.bz2 perlweeklychallenge-club-211fa8fa3233e581f40f5ba09f44b4a052497873.zip | |
Merge pull request #2323 from holli-holzer/master
initial
| -rw-r--r-- | challenge-078/markus-holzer/perl/ch-1.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-078/markus-holzer/perl/ch-1.pl b/challenge-078/markus-holzer/perl/ch-1.pl new file mode 100644 index 0000000000..99d8026876 --- /dev/null +++ b/challenge-078/markus-holzer/perl/ch-1.pl @@ -0,0 +1,10 @@ +use Modern::Perl; + +say join "> ", @ARGV; +say join ", ", leader_elements( @ARGV ); + +sub leader_elements { + my $first = my $max = pop @_; + defined $first + ? reverse $first, grep { $_ > $max ? [$max = $_] : 0 } reverse @_ + : 0 }
\ No newline at end of file |