From e0e48a4be0ef24804b201dc94461b472e9082221 Mon Sep 17 00:00:00 2001 From: drbaggy Date: Mon, 5 Jul 2021 13:28:32 +0100 Subject: slightly speed gain --- challenge-120/james-smith/perl/ch-2.pl | 6 +++--- 1 file 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); } -- cgit