Показать сообщение отдельно
Старый 01.06.2008, 17:18   #21
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

А вот тест в котором paxScript более чем в 2 раза лучше себя показывает чем FastScript
итак код paxScript:
delphi Код:
uses SysUtils,dialogs; var   i, k, j, u, x, y, z: Integer;   t,r: double; begin   t := time();   z := 20;   for i := 0 to z do   for j := 0 to z do   for u := 0 to z do   for x := 0 to z do   for y := 0 to z do     k := k xor i xor j xor u xor x xor y;   r:= (time() - t)*86400000;   showmessage(String(r));   showmessage(String(k)); end.
код FastScript:
delphi Код:
procedure Init; //Вызывается при включении скрипта var   i, k, j, u, x, y, z: Integer;   t,r: double; begin   t := time();   z := 20;   for i := 0 to z do   for j := 0 to z do   for u := 0 to z do   for x := 0 to z do   for y := 0 to z do     k := k xor i xor j xor u xor x xor y;   r:= (time() - t)*86400000;   showmessage(floattostr(r));   showmessage(IntToStr(k)); end; begin end.

Результаты:
paxScript - 1563 мс, 1625 мс, 1609 мс
FastScript - 3797 мс, 3828 мс, 3781 мс

Добавлено через 5 минут
кстати тот же код скомпиленый дельфиком выполняется за 15 мс так что в сравнении с реальным кодом отставание всёравно дикое...
__________________
Я здесь практически не появляюсь!, Skype - ikskor

Последний раз редактировалось xkor, 01.06.2008 в 17:18. Причина: Добавлено сообщение
xkor вне форума