perl code for challenge 80 task 1

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-080/walt-mankowski/perl/ch-1.pl b/challenge-080/walt-mankowski/perl/ch-1.pl
new file mode 100644
index 0000000000..fd08ac491f
--- /dev/null
+++ b/challenge-080/walt-mankowski/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.32);
+use experimental qw(signatures);
+
+# TASK #1 › Smallest Positive Number Bits
+# Submitted by: Mohammad S Anwar
+#
+# You are given unsorted list of integers @N.
+#
+# Write a script to find out the smallest positive number missing.
+
+my %h = map { $_ => 1 } @ARGV;
+
+my $n = 1;
+while (1) {
+    if (defined $h{$n}) {
+        $n++;
+    } else {
+        say $n;
+        last;
+    }
+}