diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-28 04:39:38 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-28 04:39:38 +0100 |
| commit | 4487f0c2a742e6b04da2ce4f64ec701262748e26 (patch) | |
| tree | 2401cf9b6d57c155a2bdb76ff838d30b4ad157b3 | |
| parent | 11c9a24a68d984b503bfcfdfc35ba38c2804633f (diff) | |
| download | perlweeklychallenge-club-4487f0c2a742e6b04da2ce4f64ec701262748e26.tar.gz perlweeklychallenge-club-4487f0c2a742e6b04da2ce4f64ec701262748e26.tar.bz2 perlweeklychallenge-club-4487f0c2a742e6b04da2ce4f64ec701262748e26.zip | |
- Tidied up Perl solutions.
| -rwxr-xr-x | challenge-071/mohammad-anwar/perl/ch-2.pl | 5 | ||||
| -rwxr-xr-x | challenge-071/mohammad-anwar/perl/ch-2a.pl | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/challenge-071/mohammad-anwar/perl/ch-2.pl b/challenge-071/mohammad-anwar/perl/ch-2.pl index 335b0d12f5..9147e3ad90 100755 --- a/challenge-071/mohammad-anwar/perl/ch-2.pl +++ b/challenge-071/mohammad-anwar/perl/ch-2.pl @@ -18,6 +18,9 @@ has p => (is => 'rw'); sub trim { my ($self, $position) = @_; + die "ERROR: Invalid position [$position].\n" + unless ($position =~ /^\d+$/); + my $tail = $self; my $count = 1; my $node; @@ -93,5 +96,7 @@ sub create_linked_list { $tail = $node; } + print $node->show, "\n"; + return $node; } diff --git a/challenge-071/mohammad-anwar/perl/ch-2a.pl b/challenge-071/mohammad-anwar/perl/ch-2a.pl index 2d8158220b..eaac007bd4 100755 --- a/challenge-071/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-071/mohammad-anwar/perl/ch-2a.pl @@ -18,6 +18,9 @@ has p => (is => 'rw'); sub trim { my ($self, $position) = @_; + die "ERROR: Invalid position [$position].\n" + unless ($position =~ /^\d+$/); + my $tail = $self; my $count = 1; my $node; |