Держи, студент 
| Код |
#!/usr/bin/perl
use strict;
use DBI;
my $DebugFile;
open($DebugFile, ">>","simpl") or die("Error opening debug file\n");
use integer;
my $maxprimes=20; # Необходимо найти только первые 20 простых чисел
my $value=2;
my $count=0;
my $composite=0;
my ($i, $j);
my @simpl = (2);
my $max;
my $rez;
while($count < $maxprimes)
{
$value++;
$composite=1;
$max = $value / $simpl[0];
for ($i=0; $i<$count;$i++)
{
if ($simpl[$i]>$max) {last;}
$rez = ($value/$simpl[$i])*$simpl[$i];
if ($rez==$value)
{
$composite=0;
last;
}
$max = $value / $simpl[$i];
}
if ($composite)
{
$count++;
$simpl[$count] = $value;
}
}
print $DebugFile "Простые числа: @simpl\n";
no integer;
exit(0);
1;
|
какие средства убыстрения поиска:
1. Формируется массив простых чисел
2. число проверяется на делитель только простого числа
3. если следующее простое число больше, чем значение/предыдущее простое число, то цикл прерывается
поясню: возьмем число 29, если оно не делиться на 2, 3, 5, то дальше деление проверяться не будет ...
4. происходит выход из цикла проверок при нахождении первого делителя
5. можешь сделать еще одно убыстрение - после $value == 3 делать приращение +2, т.е. не проверять заведомо четные числа - попробуй сам сделать ... |
