Benchmark Algorythmus

[Dax]

Das hier müsste extrem auf die CPU, aber kaum aufs RAM gehen:

Delphi-Quellcode:

var i: Integer;
begin
  i := 10;
  Randomize;
  while SomeCondition do
    i := (i + Random(i) * Random(i)) mod High(Integer);
end;