Программирование > Perl

Проверка числа на четность

(1/1)

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

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

Chs:

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

Мои мысли такие: каждый раз делить число на 2, а потом проверять целый остаток или нет...
--- Конец цитаты ---
#!/usr/bin/perl
$n=4;
print "Четное" if not ($n % 2);

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

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

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

Навигация

[0] Главная страница сообщений