diff options
| -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 |