---<<< Скорость кода >>>---

← →
RealRascal © (2003-11-16 11:38) [0]

Что быстрее 10 раз умножить или 100 раз прибавить? или 5 раз поделить? или один раз синус посчитать? Одним словом, оптимизация, оптимизация и еще раз оптимизация. Сабж касается не только элементарных действий, но всего, что относится к прорисовке, поиску элемента. Приветствуется все - от случев из жизни до конктерных строчек кода.

← →
Fenik © (2003-11-16 12:30) [1]

Ага. Возвращаясь к той ветке.
Какая функция рациональней?

1.
function Sev: Integer; var i: Integer; begin for i := 1 to (250 div 7) do begin Result := 7*i; if (Result mod 2 = 1) and (Result mod 3 = 2) and (Result mod 4 = 3) and (Result mod 5 = 4) and (Result mod 6 = 5) then Exit; end; end;

2.
function Sev: Integer; var i: Integer; begin Result := 7; for i := 1 to (250 div 7) do begin if (Result mod 2 = 1) and (Result mod 3 = 2) and (Result mod 4 = 3) and (Result mod 5 = 4) and (Result mod 6 = 5) then Exit; Inc(Result, 7); end; end;

3.
function Sev: Integer; begin Result := 7; while Result < 250 do begin if (Result mod 2 = 1) and (Result mod 3 = 2) and (Result mod 4 = 3) and (Result mod 5 = 4) and (Result mod 6 = 5) then Exit; Inc(Result, 7); end; end;

Вроде 3. Но незначительно.. Так?

← →
Fenik © (2003-11-16 15:33) [2]

Интересно, порядок условий влияет на скорость отсеивания чисел?

4.
function Sev: Integer; begin Result := 7; while Result < 250 do begin if (Result mod 6 = 5) and (Result mod 5 = 4) and (Result mod 4 = 3) and (Result mod 3 = 2) and (Result mod 2 = 1) then Exit; Inc(Result, 7); end; end;

Быстрее ли 4, чем 3 ?

← →
Anatoly Podgoretsky © (2003-11-16 17:03) [3]

Берешь и измеряешь все свои фантазии.

← →
Fenik © (2003-11-16 18:27) [4]

http://delphimaster.net/view/14-1068964672/

← →
RealRascal © (2003-11-19 16:27) [5]

Создавая эту ветку, я ждал несколько иных результатов. Но уж если народу так требуется что-то конкретное, поищу у себя в арх что-нть поддающееся оптимизации. После каждого усовершенствования буду выводить результат в секундах. OK?

← →
Игорь Шевченко © (2003-11-19 16:32) [6]

Не надо :)

← →
RealRascal © (2003-11-19 16:34) [7]

But why?

>RealRascal © (16.11.03 11:38)
Купи себе книжку про конструирование компиляторов и внимательно
прочитай раздел касающийся оптимизирующего блока компилятора, а точнее про замену более "дорогих" инструкций более "дешёвыми".
Многое разъясниться...

кол-во однотипных операций/на время, где кол-во -> много :)

RealRascal © (19.11.03 16:34)

А зачем ? :) Начальный и окончательный результаты еще могут быть интересны, а вот промежуточные - вряд ли.

---<<< Скорость кода >>>--- Найти похожие ветки