diff options
| -rw-r--r-- | challenge-080/lubos-kolouch/perl/ch_1.pl | 29 |
1 files changed, 29 insertions, 0 deletions
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; |