diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-05-01 12:08:27 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-05-01 12:08:27 +0000 |
| commit | f4adf3185025eae906e2c9b33e8e016e2393b6ee (patch) | |
| tree | ed2b0a49dc6cc5b933903a83ad98f8ac4ccc02e5 | |
| parent | 35a99f991daa099dd4b2b58e83736752ee4d0cf0 (diff) | |
| download | perlweeklychallenge-club-f4adf3185025eae906e2c9b33e8e016e2393b6ee.tar.gz perlweeklychallenge-club-f4adf3185025eae906e2c9b33e8e016e2393b6ee.tar.bz2 perlweeklychallenge-club-f4adf3185025eae906e2c9b33e8e016e2393b6ee.zip | |
Task 2 - Minor optimization
| -rwxr-xr-x | challenge-215/perlboy1967/perl/ch2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-215/perlboy1967/perl/ch2.pl b/challenge-215/perlboy1967/perl/ch2.pl index 45f60ba88d..f75a0f18e4 100755 --- a/challenge-215/perlboy1967/perl/ch2.pl +++ b/challenge-215/perlboy1967/perl/ch2.pl @@ -25,7 +25,7 @@ use Test::More; sub numberPlacement ($@) { my ($n,$s) = (shift @_,join '',@_); - $n-- while ($s =~ s#000#010#); + $n-- while ($n and $s =~ s#000#010#); $n == 0 ? 1 : 0; } @@ -33,6 +33,7 @@ sub numberPlacement ($@) { is(numberPlacement(1,1,0,0,0,1),1); is(numberPlacement(2,1,0,0,0,1),0); is(numberPlacement(3,1,0,0,0,0,0,0,0,1),1); +is(numberPlacement(0),1); is(numberPlacement(1),0); is(numberPlacement(1,0),0); is(numberPlacement(1,0,0),0); |