|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 19 Dec 2000 14:04:01
To : Sergey Averichev
Subject : Re: Модуль или подобное...
--------------------------------------------------------------------------------
В твоём письме от Mon, 18 Dec 2000 23:15:40 +0300 написано:
alr>>> Ладно, ошибся, не все дописал: вариант A/B должен быть целым
alr>>> числом, а не дробным
SA>
AC>> Тогда sub { return $_[0]-1 }. Если A>B, то A/B>0 и при делении нацело
AC>> тоже. Ты вообще в школе учился?
SA>
SA> Ты кого-то в невнимательности обвинял...
SA>
SA> x/(x-1) всегда дробя. Конечно, вне use integer... :)
А, так надо не деление нацело, а результат целый? Так и надо говорить, что
требуется максимальный делитель. Кстати, ты тоже неправ... x=2. Разумеется,
стандартной функции разложения на простые множители не существует - это вообще
творческая задача, если хочется ее решить за осмысленное время... Hа этом
криптование с открытым ключом построено. Hа практике лучший результат по сумме
времени разработки и работы дает функция
sub {
my $A = shift;
return $A/2 unless $A%2;
for (my $d = 3; $d <= sqrt($A); $d+=2) {
return $A/$d unless $A%$d;
}
return 1;
}
--- slrn/0.9.6.3-as (Linux)
* Origin: AKA с подствольным плюсомётом (2:5020/371.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
