Perl vs Числа

[FANTAzeRus]

Имею: допустим число 43
Хочу: Получить число ближайшее(большее) 50

типа функции

$max=48;
my $HIGH=getHign($max);

[ondr]

Ты хоть сам то понял что написал?

[FANTAzeRus]

Так понятнее???

43-50
27-30
18-20
3-10
79-80

[FANTAzeRus]

т.е. нужно найти следующее большее число кратное 10

[ondr]

int($max/10)*10+10;

[FANTAzeRus]

Фсе получилось! Спасибо!

[vladsu]

ondr:
int($max/10)*10+10;

Если только в $max не число оканчиваюшееся на 0.

[ondr]

vladsu
Ты не знаешь как выполнить проверку?
Тебя это смущает?
Или тебе хочется пофлеймить?

Если ты знаешь вариант лучше, напиши его, и тебе будут благодарны, а такие посты, как твой, вызывают лишь негативную реакцию.

[NeoNox]

ondr ответил на поставленный вопрос абсолютно верно.
Тема закрыта.

[Chs]

NeoNox
Не прав,
до обсуждения floor и ceil не дошли.
FANTAzeRus
ondr
Рекомендую посмотреть что бы обойтись без лишних проверок.

[NeoNox]

Тему открыл.
Chs
Ок хочется услышать обоснование подгрузки POSIX в данном случае.
И еще раз напомню условие:

FANTAzeRus:
Имею: допустим число 43 Хочу: Получить число ближайшее(большее) 50

[Chs]

NeoNox

 хочется услышать обоснование подгрузки POSIX в данном случае.

Ну можно подгрузить всего одну функцию и если мне не изменяет память, то начиная с какойто версии перла POSIX подгружается автоматом.

А все это затем, что бы потом, когда вокруг этой программы нарастет еще не одна не разбираться в странной ошибке.

[NeoNox]

(пожимая плечами)There\'s More Than One Way To Do It!
Кстати я не совсем уверен в автоматической загрузке POSIXа. Даже наоборот... Perl 5.8.0

[vladsu]

ondr:
вызывают лишь негативную реакцию.

Негативную реакцию вызывает Ваш пост, а я всего лишь хотел обратить внимание на "подводный камень"!

По теме:

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


use Math::Round qw(nhimult);

my $osn = 10;
my @a  = qw(1 4 5 9 1.1 1.12 10 10.00000001 19 -1 -1.1 -10);

print $_, " => ", nhimult($osn, $_),"\\n" for @a;


Хотя это частнай случай POSIX.

[C++]

Можно сделать проще и без проверок

#!/usr/bin/perl
@digits=(1,12,14,23,49,55,20,70,92,56,31,49,80,900,782);
foreach $digit (@digits)
{
  print "$digit - ",round($digit),"\\n";
}
sub round
{
  return($_[0]-$_[0]%10+10*($_[0]%10!=0))
}

Значение перации $_[0]%10 можно сохранить в скаляре и заменить ее на этот скаляр.
Результат работы:

1 - 10
12 - 20
14 - 20
23 - 30
49 - 50
55 - 60
20 - 20
70 - 70
92 - 100
56 - 60
31 - 40
49 - 50
80 - 80
900 - 900
782 - 790