l2phx 20 -- Arenim's edition

[xkor]

А вот тест в котором paxScript более чем в 2 раза лучше себя показывает чем FastScript
итак код paxScript:

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:

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 мс так что в сравнении с реальным кодом отставание всёравно дикое...