diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-06-27 15:31:13 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-27 15:31:13 +0100 |
| commit | 317cf0436aea201d07bf270c92633e0e159b74fa (patch) | |
| tree | 2798b766b39401d5b4b47a25c3aa4b43d66c269a /challenge-066 | |
| parent | b537fb4269e2226e77e7b2faab34f58a16cba9a7 (diff) | |
| parent | 3ec23a381b6abdd33290f84f7b6881612f401844 (diff) | |
| download | perlweeklychallenge-club-317cf0436aea201d07bf270c92633e0e159b74fa.tar.gz perlweeklychallenge-club-317cf0436aea201d07bf270c92633e0e159b74fa.tar.bz2 perlweeklychallenge-club-317cf0436aea201d07bf270c92633e0e159b74fa.zip | |
Merge pull request #1868 from oWnOIzRi/week066
pass test for updated example 2
Diffstat (limited to 'challenge-066')
| -rw-r--r-- | challenge-066/steven-wilson/perl/ch-1.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-066/steven-wilson/perl/ch-1.pl b/challenge-066/steven-wilson/perl/ch-1.pl index 63f4a85242..c6610b3adc 100644 --- a/challenge-066/steven-wilson/perl/ch-1.pl +++ b/challenge-066/steven-wilson/perl/ch-1.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl -# -# +# Author: Steven Wilson +# Date: 27 June 2020 use strict; use warnings; @@ -8,7 +8,7 @@ use feature qw/ say /; use Test::More tests => 3; ok( divide( 5, 2 ) == 2 ); -ok( divide( -5, 2 ) == -2 ); +ok( divide( -5, 2 ) == -3 ); ok( divide( -5, -2 ) == 2 ); sub divide { @@ -21,6 +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; } |