From b8eb162b05e05a2ad954efd74d4e1011641510a5 Mon Sep 17 00:00:00 2001
From: Anton Fedotov <tosha.fedotov.2000@gmail.com>
Date: Thu, 1 Oct 2020 22:03:19 +0500
Subject: ch#080-1

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

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;
-- 
cgit