diff options
| -rwxr-xr-x | challenge-284/robbie-hatley/perl/ch-2.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-284/robbie-hatley/perl/ch-2.pl b/challenge-284/robbie-hatley/perl/ch-2.pl index 6e42b3a1d4..f8b37e4b60 100755 --- a/challenge-284/robbie-hatley/perl/ch-2.pl +++ b/challenge-284/robbie-hatley/perl/ch-2.pl @@ -138,11 +138,11 @@ for my $aref (@arrays) { say "List 1: (@list1)"; say "List 2: (@list2)"; - !is_ints @list1 and say 'Error: @list1 not array of integers. \nMoving on to next array pair.' and next; - !is_ints @list2 and say 'Error: @list2 not array of integers. \nMoving on to next array pair.' and next; - !is_unique @list2 and say 'Error: @list2 is not unique elements.\nMoving on to next array pair.' and next; + !is_ints @list1 and say "Error: \@list1 not array of integers. \nMoving on to next array pair." and next; + !is_ints @list2 and say "Error: \@list2 not array of integers. \nMoving on to next array pair." and next; + !is_unique @list2 and say "Error: \@list2 is not unique elements.\nMoving on to next array pair." and next; !is_subset @list2, @list1 - and say 'Error: @list2 not subset of @list1. \nMoving on to next array pair.' and next; + and say "Error: \@list2 not subset of \@list1. \nMoving on to next array pair." and next; my @list3 = relative_sort @list1, @list2; say "List 1 sorted relative to List 2: (@list3)"; |