Aktualizace:
Od minulé soutěže mi už otrnulo a jelikož převážná většina lidí v anketě nebyla proti dalšímu kolu soutěže a do jara ještě chvilku máme čas, je zde další úkol.
Proti minulému kolu jsem změnil několik pravidel:
Doufám, že se pobavíte stejně jako já.
Níže uvedený program vygeneruje testovací data (nejsou to ale data, která budou použita pro výsledný test) - jejich velikost zhruba odpovídá, formát bude přesně stejný. Jedná se o textový neunicode soubor, obsahující na každém řádku (konec řádku je CRLF) jeden z 20 tagů, případně jeho ukončovací variantu. Ukončovací varianta, tj. </xxxxxxx se bude ignorovat a nezapočítává se do výsledku.
generator.zip - program pro vygenerovaní vstupních dat - generování trvá několik sekund :-D
Ukázka výsledného souboru:
</body>
</strong>
<li>
</ul>
<div>
<head>
<head>
</head>
<td>
</em>
</html>
</tr>
Cílem je do připraveného pole spočítat jednotlivé výskyty.
Např. v uvedeném příkladu se bude jako první počítat <li>.
kostra.zip - základní program, zajistí načtení dat z data.bin (získáno generátorem nebo ručně), výpočet času a výpis výsledků. Mezi řádky 34 a 38 je Vaše hrací pole. Výsledek bude v aiCount, nulování není kostrou zaručeno. asData je množina povolených tagů, jejich pořadí a texty se nesmí a nebudou měnit, tj. můžete na to spoléhat.
Na návrh diskutujících (Pepák a anonym) byla upravena kostra - používá se nyní QueryPerformanceCounter a minimum ze 40 běhů.
program Soutez;
{$APPTYPE CONSOLE}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{$STRINGCHECKS OFF}
{$INLINE ON}
{$O+}
{$R-}
uses
Sysutils,
windows,
classes;
const
ciCount = 20;
asData : array [1..ciCount] of string =
('<body>', '<head>', '<html>', '<p>', '<table>', '<li>', '<ul>', '<div>', '<img>', //9
'<td>','<tr>', '<h1>', '<h2>', '<h3>', '<h4>', '<a>', '<em>', '<strong>',
'<code>', '<pre>'); //20
var
aiCount: array [1..ciCount] of integer;
const
LOOP_COUNT = 40;
var
pData: PByteArray;
f: TFileStream;
tick, tickend, frequency: Int64;
sOut:string;
x: Integer;
Loops: integer;
CurTime, TotalTime, MaxTime, MinTime: DWORD;
begin
f:= TFileStream.Create('data.bin', fmOpenRead );
try
GetMem(pData, f.Size);
f.Read(pData^, f.Size);
TotalTime := 0;
MaxTime := 0;
MinTime := $ffffffff;
for Loops := 1 to LOOP_COUNT do
begin
QueryPerformanceFrequency(frequency);
QueryPerformanceCounter(tick);
// zacatek souteze, predavani je zalezitosti programatora
// v pData jsou data
// zde si muzete hrat
QueryPerformanceCounter(tickend);
// konec souteze
CurTime := Round(1000*(tickend - tick)/frequency);
Inc(TotalTime, CurTime);
if CurTime < MinTime then
MinTime := CurTime;
if CurTime > MaxTime then
MaxTime := CurTime;
end;
writeln(format('Autor: Radek Červinka, kompilator:%f', [CompilerVersion]));
writeln(Format('Last time = [%d]', [CurTime]));
writeln(Format('Min time = [%d], Average time = [%d], Max time = [%d]',
[MinTime, TotalTime div LOOP_COUNT, MaxTime]));
for x := 1 to 20 do
Writeln(Format('%s = %d', [asData[x], aiCount[x]]));
FreeMem(pData);
finally
FreeAndNil(f);
end;
end.
Hraje se na první místo dle času výpočtu. Pokud by se náhodou nedejbože stalo, že bych byl první (čemu ale opravdu nevěřím), cenu dle svého výběru získává druhý v pořadí.
Výběr je následující (jedna z variant + PDF verzi delphi.cz):
Osobně jsem použil Delphi 2007, v této úloze generuje zhruba stejně rychlý kód jako Delphi XE, jen je výsledné exe kratší.
Výsledné exe + zdrojové kódy mi zašlete a já Vám potvrdím přijetí. Pro antivirový test můžete použít virusscan.jotti.org.
Pro informaci: měření jsou na mém Core2Duo T8100 @ 2.10GHz.
Program očekává v adresáři patřičné vstupní data - viz generator.zip.
Výsledky jsou v samostatném článku.
Datum: 2011-02-07 21:15:00 Tagy: optimalizace
(C) 2009 - 2025 autoři Delphi.cz. Delphi programming. Všechna práva vyhrazena.
Embarcadero Technologies, Inc. Embarcadero, the Embarcadero Technologies logos, and all
other Embarcadero Technologies product or service names are trademarks or registered trademarks of Embarcadero Technologies, Inc.
