|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ilya S Slyzhnyak 2:5082/5.11 26 Sep 2001 21:34:04
To : Aleksandr Luzenin
Subject : чет/нечет
--------------------------------------------------------------------------------
19 Sep 01 15:25, you wrote to All:
AL> Если не трудно то скажите как цифру проверить на сабж!
AL> ... в документации времени нет копаться! а вам ничего не стоит
AL> написать пару строчек об этом! :)
По определению четного числа. Целое - по младшему биту ($i & 1), а нецелое
по остатку от деления:
use POSIX qw(floor);
sub is_odd {
$_[0] - 2 * floor($_[0] / 2);
}
WBR, Ilya S Slyzhnyak. e-mail: _ilya666@mail.kz_ icq: 33099817
--- GoldED+ 1.1.5-20010807 (Win9x 4.90.3000 i586)
* Origin: East Kazakhstan State University, Applied Math (2:5082/5.11)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
