Skip to content

Instantly share code, notes, and snippets.

@BeRo1985

BeRo1985/FLREvsSkRegExpW.txt

Last active September 4, 2015 20:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save BeRo1985/38b6d43e08922eb2c66f to your computer and use it in GitHub Desktop.
Save BeRo1985/38b6d43e08922eb2c66f to your computer and use it in GitHub Desktop.
Download ZIP
FLREvsSkRegExpW
Raw
FLREvsSkRegExpW.txt
==============================================================================
FLRE:
/Twain/ : 8.24 ms | 2388
/(?i)Twain/ : 8.48 ms | 2657
/[a-z]shing/ : 8.67 ms | 1877
/Huck[a-zA-Z]+|Saw[a-zA-Z]+/ : 12.02 ms | 396
/\b\w+nn\b/ : 35.54 ms | 359
/[a-q][^u-z]{13}x/ : 110.64 ms | 4929
/Tom|Sawyer|Huckleberry|Finn/ : 20.05 ms | 3015
/(?i)Tom|Sawyer|Huckleberry|Finn/ : 29.85 ms | 4820
/.{0,2}(Tom|Sawyer|Huckleberry|Finn)/ : 36.13 ms | 3015
/.{2,4}(Tom|Sawyer|Huckleberry|Finn)/ : 36.18 ms | 2220
/Tom.{10,25}river|river.{10,25}Tom/ : 35.26 ms | 2
/[a-zA-Z]+ing/ : 51.06 ms | 95863
/\s[a-zA-Z]{0,12}ing\s/ : 43.90 ms | 67810
/([A-Za-z]awyer|[A-Za-z]inn)\s/ : 15.30 ms | 313
/["'][^"']{0,30}[?!\.]["']/ : 39.75 ms | 9857
Time | Match count
==============================================================================
SkRegExpW:
/Twain/ : 31.12 ms | 2388
/(?i)Twain/ : 265.19 ms | 2657
/[a-z]shing/ : 33.52 ms | 1877
/Huck[a-zA-Z]+|Saw[a-zA-Z]+/ : 156.40 ms | 396
/\b\w+nn\b/ : 1858.37 ms | 359
/[a-q][^u-z]{13}x/ : 16.29 ms | 4929
/Tom|Sawyer|Huckleberry|Finn/ : 282.54 ms | 3015
/(?i)Tom|Sawyer|Huckleberry|Finn/ : 430.22 ms | 3609 <==== wrong match count result
/.{0,2}(Tom|Sawyer|Huckleberry|Finn)/ : 20390.62 ms | 3015
/.{2,4}(Tom|Sawyer|Huckleberry|Finn)/ : 20216.43 ms | 2220
/Tom.{10,25}river|river.{10,25}Tom/ : 266.59 ms | 2
/[a-zA-Z]+ing/ : 2711.79 ms | 95863
/\s[a-zA-Z]{0,12}ing\s/ : 1265.87 ms | 67810
/([A-Za-z]awyer|[A-Za-z]inn)\s/ : 284.98 ms | 313
/["'][^"']{0,30}[?!\.]["']/ : 200.64 ms | 9857
Benchmark source code see ZFLREvsSkRegExpW.pas
Raw
ZFLREvsSkRegExpW.pas
(*
** You do need the mtent12.txt from
** http://www.gutenberg.org/files/3200/old/mtent12.zip for this benchmark
**)
program benchmark;
{$ifdef fpc}
{$mode delphi}
{$ifdef cpui386}
{$define cpu386}
{$endif}
{$ifdef cpu386}
{$asmmode intel}
{$endif}
{$ifdef cpuamd64}
{$asmmode intel}
{$endif}
{$ifdef FPC_LITTLE_ENDIAN}
{$define LITTLE_ENDIAN}
{$else}
{$ifdef FPC_BIG_ENDIAN}
{$define BIG_ENDIAN}
{$endif}
{$endif}
{-$pic off}
{$define caninline}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$define HAS_TYPE_EXTENDED}
{$else}
{$undef HAS_TYPE_EXTENDED}
{$endif}
{$ifdef FPC_HAS_TYPE_DOUBLE}
{$define HAS_TYPE_DOUBLE}
{$else}
{$undef HAS_TYPE_DOUBLE}
{$endif}
{$ifdef FPC_HAS_TYPE_SINGLE}
{$define HAS_TYPE_SINGLE}
{$else}
{$undef HAS_TYPE_SINGLE}
{$endif}
{$else}
{$realcompatibility off}
{$localsymbols on}
{$define LITTLE_ENDIAN}
{$ifndef cpu64}
{$define cpu32}
{$endif}
{$define HAS_TYPE_EXTENDED}
{$define HAS_TYPE_DOUBLE}
{$define HAS_TYPE_SINGLE}
{$endif}
{$ifdef win32}
{$define windows}
{$endif}
{$ifdef win64}
{$define windows}
{$endif}
{$ifdef wince}
{$define windows}
{$endif}
{$rangechecks off}
{$extendedsyntax on}
{$writeableconst on}
{$hints off}
{$booleval off}
{$typedaddress off}
{$stackframes off}
{$varstringchecks on}
{$typeinfo on}
{$overflowchecks off}
{$longstrings on}
{$openstrings on}
{$apptype console}
uses
SysUtils,
Classes,
FLRE in '..\..\src\FLRE.pas',
FLREUnicode in '..\..\src\FLREUnicode.pas',
BeRoHighResolutionTimer in '..\common\BeRoHighResolutionTimer.pas',
SkRegExpW;
const BenchmarkCount=1;
BenchmarkPatterns:array[0..14] of TFLRERawByteString=('Twain',
'(?i)Twain',
'[a-z]shing',
'Huck[a-zA-Z]+|Saw[a-zA-Z]+',
'\b\w+nn\b',
'[a-q][^u-z]{13}x',
'Tom|Sawyer|Huckleberry|Finn',
'(?i)Tom|Sawyer|Huckleberry|Finn',
'.{0,2}(Tom|Sawyer|Huckleberry|Finn)',
'.{2,4}(Tom|Sawyer|Huckleberry|Finn)',
'Tom.{10,25}river|river.{10,25}Tom',
'[a-zA-Z]+ing',
'\s[a-zA-Z]{0,12}ing\s',
'([A-Za-z]awyer|[A-Za-z]inn)\s',
'["''][^"'']{0,30}[?!\.]["'']');
{$ifdef windows}
function IsDebuggerPresent:boolean; stdcall; external 'kernel32.dll' name 'IsDebuggerPresent';
{$endif}
var i,j:integer;
s:TFLRERawByteString;
FileStream:TFileStream;
FLREInstance:TFLRE;
SkRegExpInstance:TSkRegExp;
StartTime,EndTime:int64;
Captures:TFLREMultiCaptures;
HighResolutionTimer:THighResolutionTimer;
begin
HighResolutionTimer:=THighResolutionTimer.Create;
try
FileStream:=TFileStream.Create('mtent12.txt',fmOpenRead);
try
SetLength(s,FileStream.Size);
FileStream.Read(s[1],FileStream.Size);
finally
FileStream.Free;
end;
writeln(' ':50,' Time | Match count');
writeln('==============================================================================');
writeln('FLRE:');
for i:=low(BenchmarkPatterns) to high(BenchmarkPatterns) do begin
try
FLREInstance:=TFLRE.Create(BenchmarkPatterns[i],[]);
FLREInstance.MaximalDFAStates:=65536;
try
write('/'+BenchmarkPatterns[i]+'/ : ':50,'Please wait... ');
StartTime:=HighResolutionTimer.GetTime;
for j:=1 to BenchmarkCount do begin
FLREInstance.MatchAll(s,Captures);
end;
EndTime:=HighResolutionTimer.GetTime;
write(#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8);
writeln((HighResolutionTimer.ToMicroSeconds(EndTime-StartTime) div BenchmarkCount)/1000.0:11:2,' ms |',length(Captures):12);
// writeln(FLREInstance.DumpRegularExpression);
finally
SetLength(Captures,0);
FLREInstance.Free;
end;
except
on e:Exception do begin
writeln(e.Message);
end;
end;
end;
writeln;
writeln(' ':50,' Time | Match count');
writeln('==============================================================================');
writeln('SkRegExpW:');
for i:=low(BenchmarkPatterns) to high(BenchmarkPatterns) do begin
try
SkRegExpInstance:=TSkRegExp.Create;
SkRegExpInstance.Expression:=BenchmarkPatterns[i];
SkRegExpInstance.InputString:=s;
try
write('/'+BenchmarkPatterns[i]+'/ : ':50,'Please wait... ');
StartTime:=HighResolutionTimer.GetTime;
j:=0;
if SkRegExpInstance.ExecPos then begin
repeat
inc(j);
until not SkRegExpInstance.ExecNext;
end;
EndTime:=HighResolutionTimer.GetTime;
write(#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8);
writeln((HighResolutionTimer.ToMicroSeconds(EndTime-StartTime) div BenchmarkCount)/1000.0:11:2,' ms |',j:12);
// writeln(FLREInstance.DumpRegularExpression);
finally
SkRegExpInstance.Free;
end;
except
on e:Exception do begin
writeln(e.Message);
end;
end;
end;
finally
HighResolutionTimer.Free;
end;
writeln;
writeln('Done!');
writeln;
{$ifdef fpc}
if IsDebuggerPresent then begin
readln;
end;
{$else}
if DebugHook<>0 then begin
readln;
end;
{$endif}
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment