diff options
| -rw-r--r-- | challenge-066/steven-wilson/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-066/steven-wilson/perl/ch-1.pl b/challenge-066/steven-wilson/perl/ch-1.pl index c6610b3adc..abed01885e 100644 --- a/challenge-066/steven-wilson/perl/ch-1.pl +++ b/challenge-066/steven-wilson/perl/ch-1.pl @@ -21,7 +21,7 @@ sub divide { } if ( ( ( $M < 0 ) && ( $N > 0 ) ) || ( ( $N < 0 ) && ( $M > 0 ) ) ) { $q = -$q; - if ($a != 0) { --$q }; # if neg and has remainder, floor number + $q-- if $a != 0; # if neg and has remainder, floor number } $q; } |