diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-27 11:37:23 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-27 11:37:23 +0100 |
| commit | b537fb4269e2226e77e7b2faab34f58a16cba9a7 (patch) | |
| tree | 3cec541c3104249cc48837708605ac37df9e42e5 | |
| parent | b9eb2c2b052e4e506c6aac8bc8f214b4ba400901 (diff) | |
| download | perlweeklychallenge-club-b537fb4269e2226e77e7b2faab34f58a16cba9a7.tar.gz perlweeklychallenge-club-b537fb4269e2226e77e7b2faab34f58a16cba9a7.tar.bz2 perlweeklychallenge-club-b537fb4269e2226e77e7b2faab34f58a16cba9a7.zip | |
- Minor tidy up solutions.
| -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; } |