diff options
| -rwxr-xr-x | challenge-080/anton-fedotov/perl/ch-1.pl | 10 |
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; |