diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-02-23 05:46:17 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-02-23 05:46:17 +0000 |
| commit | 7fac9125976bc8d07f4f3203ad300887120c55aa (patch) | |
| tree | b7e0115bb7c0c8af3537894898f9b283351b69e6 /challenge-101 | |
| parent | cc69036ae26a587aa9a79156029c90fe67f7069a (diff) | |
| download | perlweeklychallenge-club-7fac9125976bc8d07f4f3203ad300887120c55aa.tar.gz perlweeklychallenge-club-7fac9125976bc8d07f4f3203ad300887120c55aa.tar.bz2 perlweeklychallenge-club-7fac9125976bc8d07f4f3203ad300887120c55aa.zip | |
tidied up last line
Diffstat (limited to 'challenge-101')
| -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; } |