diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-19 17:01:03 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-19 17:01:03 +0200 |
| commit | 38d2dc12f1bf8988d8d4afca6a805dc382ecbe74 (patch) | |
| tree | b387b3221ba5e20dddf9e959a5b997ca808401d8 | |
| parent | 6dd4422d8c3686a5047c185d03d65a827f3fdebf (diff) | |
| download | perlweeklychallenge-club-38d2dc12f1bf8988d8d4afca6a805dc382ecbe74.tar.gz perlweeklychallenge-club-38d2dc12f1bf8988d8d4afca6a805dc382ecbe74.tar.bz2 perlweeklychallenge-club-38d2dc12f1bf8988d8d4afca6a805dc382ecbe74.zip | |
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 |