From 7fac9125976bc8d07f4f3203ad300887120c55aa Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 23 Feb 2021 05:46:17 +0000
Subject: tidied up last line

---
 challenge-101/james-smith/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit