Найти следующий кратные числа

Question

Я хочу, чтобы найти (учитывая число, которое может быть флоат), как найти следующий кратное 60.
я делаю следующее, который работает:

my $nextMultiple = int($input/$constant);                                   
$nextMultiple = ((int($nextMultiple/60)) * 60);                                 
$nextMultiple += 60; 

Я фактически добавляю 60 в последнюю строку специально. Есть ли лучший способ для этого?

Answer 1

Если вы хотите кратные 60, чтобы быть неизменным:

use POSIX 'ceil'; 

my $next_multiple = ceil(($input/$constant)/60) * 60; 

Если вы хотите кратные 60, чтобы быть увеличено до следующего кратного (как существующий код делает):

use POSIX 'floor'; 

my $next_multiple = (1 + floor(($input/$constant)/60)) * 60; 

Answer 2

Следующий самый высокий:

# 121 => 180 -119 => -60 
# 120 => 180 -120 => -60 
# 119 => 120 -121 => -120 

$n - ($n % 60) + 60 

Следующая по величине:

# 121 => 180 -119 => -120 
# 120 => 180 -120 => -180 
# 119 => 120 -121 => -180 

$n + ($n >= 0 ? +1 : -1) * (60 - (abs($n) % 60)) 

$n % 60 == 0 сообщит вам, если $ п кратно 60.