diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2020-06-27 16:32:55 +0100 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2020-06-27 16:32:55 +0100 |
| commit | 4d7fcf49b224801d35718a59e2b0f0089ab03aea (patch) | |
| tree | 49168d16ff569ce360993264e0bfdfb65ee5c1c4 /challenge-066 | |
| parent | 3ec23a381b6abdd33290f84f7b6881612f401844 (diff) | |
| download | perlweeklychallenge-club-4d7fcf49b224801d35718a59e2b0f0089ab03aea.tar.gz perlweeklychallenge-club-4d7fcf49b224801d35718a59e2b0f0089ab03aea.tar.bz2 perlweeklychallenge-club-4d7fcf49b224801d35718a59e2b0f0089ab03aea.zip | |
change some syntax
Diffstat (limited to 'challenge-066')
| -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; } |