Merge pull request #2425 from toshikFedotov/challenge-080

ch#080-1

1 files changed, 10 insertions, 0 deletions

diff --git a/challenge-080/anton-fedotov/perl/ch-1.pl b/challenge-080/anton-fedotov/perl/ch-1.pl
new file mode 100755
index 0000000000..01168d8399
--- /dev/null
+++ b/challenge-080/anton-fedotov/perl/ch-1.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use v5.30;
+
+my @N = sort {$a<=>$b} grep {$_ > 0} @ARGV ? split /,/, shift : (5, 2, -2, 0, 123, 1);
+unshift @N, 0;
+$N[$_]-$N[$_-1] > 1 ? say(++$N[$_-1]) && exit 0 : next for 1..$#N;
+say 1;