Forum Webscript.Ru

Программирование => Perl => Тема начата: от 24 Мая 2001, 20:30:29

Название: Проверка числа на четность
Отправлено: от 24 Мая 2001, 20:30:29

Нужно проверить чётное число или нет.

Мои мысли такие: каждый раз делить число на 2, а потом проверять целый остаток или нет...

Название: Проверка числа на четность
Отправлено: Chs от 24 Мая 2001, 22:16:07

Цитировать

Oleg (24-05-2001 20:30):
Нужно проверить чётное число или нет.

Мои мысли такие: каждый раз делить число на 2, а потом проверять целый остаток или нет...

#!/usr/bin/perl
$n=4;
print "Четное" if not ($n % 2);

Название: Проверка числа на четность
Отправлено: от 26 Мая 2001, 19:02:05

Всем известно, что битовые операции выполняются быстрее, чем всякие-там-деления... поэтому нужно писать так:

print "Четное" unless $n & 1;

А вообще-то TIMTOWTDI %)