Число полных и неполных сотен

[YA]

Помогите с элементарной задачкой.

Нужно определить число полных и неполных сотен в числе.
Делаю так:

my $int=ЧИСЛО;
$int/=100;
$int=($int==int($int))?$int:(int($int)+1); # округление "вверх"

Что-то мне подсказывает, что все должно быть проще...

[YA]

Думал, что хотя бы Chs найдет, что здесь оптимизировать.

[Chs]

Думал, что хотя бы Chs найдет, что здесь оптимизировать.

А самому поискать - не ищеться?
perldoc -q ceil

Код: [Выделить]


use POSIX qw(ceil);
$int = ceil($int/100);


[YA]

Зачем же так строго?! Просто до этого упоминание "ceil" нигде не встречал, вот и не знал, что искать.

Но, все равно, спасибо!

[YA]

Было:

my $int=ЧИСЛО;
$int/=100;
$int=($int==int($int))?$int:(int($int)+1); # округление "вверх"

Альтернатива:

my $int=ЧИСЛО;
$int=int($int/100)+(($int%100)?1:0);

По скорости, видимо, то же самое, но немного компактнее - мелочь, а приятно.

[Chs]

По скорости, видимо, то же самое...

Второй вариант быстрее.