diff options
| -rw-r--r-- | challenge-101/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-101/james-smith/perl/ch-2.pl b/challenge-101/james-smith/perl/ch-2.pl index e9fbf7ed2c..f34c8f5ebb 100644 --- a/challenge-101/james-smith/perl/ch-2.pl +++ b/challenge-101/james-smith/perl/ch-2.pl @@ -30,6 +30,6 @@ sub winding_number { : $y<=0 && $a*$y-$x*$b <= 0 ? -1 : 0; ($a,$b)=($x,$y); } - return $wn?1:0; + return $wn%2; } |