Форум: "Потрепаться";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизСравнение компиляторов - часть 2 Найти похожие ветки
← →
VuDZ (2002-02-22 00:54) [92]на счт оптимизации:
for i := 2 to N-1 do begin
if A[i] <> 0 then begininc(num); // count prime
j := i + i;
while j <= N-1 do begin
A[j] := 0;
j := j + i;
end;
end
end;
вот с такой элементарной вставкой скорость увеличиватся в 5 раз :>
Страницы: 1 2 3 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c