From a6236b6a16c32faa6d200876cacbb5b8489ed507 Mon Sep 17 00:00:00 2001
From: Anton <anton.fedotov@rydlab.ru>
Date: Mon, 14 Sep 2020 11:15:35 +0500
Subject: ch#078-1

---
 challenge-078/anton-fedotov/perl/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 challenge-078/anton-fedotov/perl/ch-1.pl

(limited to 'challenge-078')

diff --git a/challenge-078/anton-fedotov/perl/ch-1.pl b/challenge-078/anton-fedotov/perl/ch-1.pl
new file mode 100755
index 0000000000..32ee61686f
--- /dev/null
+++ b/challenge-078/anton-fedotov/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use v5.30;
+
+my @A = @ARGV;
+@A = (9, 10, 7, 5, 6, 1) unless @A;
+my @L;
+
+eval {state$i=0;push @L, $_ if $_ == shift @{[sort {$b <=> $a} @A[$i++..$#A]]}} for @A;
+
+say join ',', @L;
-- 
cgit