diff options
Diffstat (limited to 'challenge-066')
| -rw-r--r-- | challenge-066/mohammad-anwar/perl/ch-2.pl | 5 | ||||
| -rw-r--r-- | challenge-066/mohammad-anwar/perl/ch-2a.pl | 7 |
2 files changed, 7 insertions, 5 deletions
diff --git a/challenge-066/mohammad-anwar/perl/ch-2.pl b/challenge-066/mohammad-anwar/perl/ch-2.pl index f969fd0f01..9003927005 100644 --- a/challenge-066/mohammad-anwar/perl/ch-2.pl +++ b/challenge-066/mohammad-anwar/perl/ch-2.pl @@ -31,6 +31,7 @@ sub get_power_integers { $i++; } - return $power_integers if scalar(@$power_integers); - return 0; + $power_integers = [0] unless scalar(@$power_integers); + + return $power_integers; } diff --git a/challenge-066/mohammad-anwar/perl/ch-2a.pl b/challenge-066/mohammad-anwar/perl/ch-2a.pl index 07ffb41a05..89be43c51e 100644 --- a/challenge-066/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-066/mohammad-anwar/perl/ch-2a.pl @@ -18,7 +18,7 @@ is_deeply(get_power_integers(9), ['3 ^ 2'], ' 9 = 3 ^ 2'); is_deeply(get_power_integers(45), - (0), + [ 0 ], '45 = N/A'); is_deeply(get_power_integers(64), ['2 ^ 6', '4 ^ 3', '8 ^ 2'], @@ -43,6 +43,7 @@ sub get_power_integers { $i++; } - return $power_integers if scalar(@$power_integers); - return 0; + $power_integers = [0] unless scalar(@$power_integers); + + return $power_integers; } |