TraceyC/codility
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add pod, error handling for args

Browse source
This commit is contained in:
Tracey Clark 2023-09-21 15:35:43 -05:00
commit 51afbeae72
2 changed files with 36 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

32
1-binary_gap.pl
View file

@ -8,12 +8,30 @@ use lib "$FindBin::RealBin/lib";
use lib 'lib';
use BinaryGap;
use Data::Dumper;
print "Input: " . Dumper($ARGV[0]);
my $number = $ARGV[0];
my $answer = BinaryGap::solution($number);
print "Got answer $answer\n";
if (scalar(@ARGV) != 1) {
die "Usage: $0 <integer>\n";
}
exit;
my $answer = BinaryGap::solution($number);
print "The binary gap of $number is $answer\n";
exit;
__END__
=pod
=encoding utf8
=head1 NAME
binary_gap.pl - Find longest sequence of zeros in binary representation of an integer. Script used to call BinaryGap.
=head1 SYNOPSIS
binary_gap.pl <integer>
=head1 DESCRIPTION
This script is used to exercise BinaryGap.pm. It takes one integer as input. It returns the binary gap (longest sequence of zeros) in the binary representation of the input number.