diff options
| -rw-r--r-- | challenge-120/james-smith/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-120/james-smith/perl/ch-2.pl b/challenge-120/james-smith/perl/ch-2.pl index d1084ede19..7b0406a874 100644 --- a/challenge-120/james-smith/perl/ch-2.pl +++ b/challenge-120/james-smith/perl/ch-2.pl @@ -37,14 +37,14 @@ sub clock_angle { ## If value is > 180 then we subtract from ## 360.... my($h,$m) = split /:/,shift; - my $t = abs($h*60-$m*11)%720/2; + my $t = abs($h%12*30-$m*5.5); return $t > 180 ? 360-$t : $t; } sub clock_angle_1_liner { - 180-abs((60*(substr$_[0],0,2)-11*substr$_[0],3)%720/2-180); + 180-abs(abs((substr$_[0],0,2)%12*30-5.5*substr$_[0],3)-180); } sub clock_angle_fast { - 180-abs((60*$_[0]-11*substr$_[0],3)%720/2-180); + 180-abs(abs($_[0]%12*30-5.5*substr$_[0],3)-180); } |