From 52e114caced4bd7e9588f3949d46fb3a04705a33 Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Mon, 28 Sep 2020 13:17:45 +0200
Subject: Chal 1 empty with tests

---
 challenge-080/lubos-kolouch/perl/ch_1.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 challenge-080/lubos-kolouch/perl/ch_1.pl

diff --git a/challenge-080/lubos-kolouch/perl/ch_1.pl b/challenge-080/lubos-kolouch/perl/ch_1.pl
new file mode 100644
index 0000000000..0b712a913a
--- /dev/null
+++ b/challenge-080/lubos-kolouch/perl/ch_1.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch_1.pl
+#
+#        USAGE: ./ch_1.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-080/
+#               Challenge #1
+#               Smallest Positive Number Bits
+#
+#       AUTHOR: Lubos Kolouch
+#===============================================================================
+
+use strict;
+use warnings;
+
+sub get_smallest_missing {
+    my $arr = shift;
+
+}
+
+use Test::More;
+
+is(get_smallest_missing([5, 2, -2, 0]), 1);
+is(get_smallest_missing([1, 8, -1]), 1);
+is(get_smallest_missing([2, 0, 1]), 1);
+
+done_testing;
-- 
cgit