program Test;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Winapi.Windows,
  System.Generics.Collections,
  System.SysUtils,
  System.Classes;

const
  ITERATIONS_COUNT = 1000000 div 10;

var
  i, k: NativeInt;
  VALUES: TArray<string>;
  Time: Cardinal;
  StringList: TStringList;
  Dictionary: TDictionary<string, Integer>;

type
  THtmlTag = (tagUnknown, tagAddress, tagBlockquote, tagBody, tagButton, tagDel, tagDiv,
    tagFieldset, tagFrame, tagFrameset, tagH1, tagH2, tagH3, tagH4, tagH5, tagHtml,
    tagImg, tagLegend, tagLi, tagMenu, tagMeta, tagOl, tagPre, tagScript, tagSmall,
    tagSpan, tagStrike, tagStyle, tagSub, tagSup, tagTable, tagTbody, tagTd, tagTextarea,
    tagTh, tagThead, tagTr, tagUl);

function StrToHtmlTag(const S: UnicodeString): THtmlTag;
type
  HugeByteArray = array[0..High(Integer) div SizeOf(Byte) - 1] of Byte;
  HugeWordArray = array[0..High(Integer) div SizeOf(Word) - 1] of Word;
  HugeCardinalArray = array[0..High(Integer) div SizeOf(Cardinal) - 1] of Cardinal;
  HugeNativeUIntArray = array[0..High(Integer) div SizeOf(NativeUInt) - 1] of NativeUInt;

  PMemoryItems = ^TMemoryItems;
  TMemoryItems = packed record
  case Integer of
    0: (Bytes: HugeByteArray);
    1: (Words: HugeWordArray);
    2: (Cardinals: HugeCardinalArray);
    3: (NativeUInts: HugeNativeUIntArray);
    4: (A1: array[1..1] of Byte;
        case Integer of
          0: (Words1: HugeWordArray);
          1: (Cardinals1: HugeCardinalArray);
          2: (NativeUInts1: HugeNativeUIntArray);
        );
    5: (A2: array[1..2] of Byte;
        case Integer of
          0: (Cardinals2: HugeCardinalArray);
          1: (NativeUInts2: HugeNativeUIntArray);
        );
    6: (A3: array[1..3] of Byte;
        case Integer of
          0: (Cardinals3: HugeCardinalArray);
          1: (NativeUInts3: HugeNativeUIntArray);
        );
  end;
var
  Len: Integer;
begin
  // default value
  Result := tagUnknown;
  if (Pointer(S) = nil) then Exit;
  Len := PInteger(NativeInt(S) - 4)^;

  // utf16 ascii
  with PMemoryItems(S)^ do
  if (Len >= 2) then
  case (Words[0]) of // "address", "blockquote", "body", "button", "del", "div", ...
    $0061: if (Len = 7) and (Cardinals2[0] = $00640064) and (Cardinals2[1] = $00650072) and
           (Cardinals2[2] = $00730073) then Result := tagAddress; // "address"
    $0062: case Len of // "body", "button", "blockquote"
             4: if (Cardinals2[0] = $0064006F) and (Words[3] = $0079) then
                Result := tagBody; // "body"
             6: if (Cardinals2[0] = $00740075) and (Cardinals2[1] = $006F0074) and
                (Words[5] = $006E) then Result := tagButton; // "button"
             10: if (Cardinals2[0] = $006F006C) and (Cardinals2[1] = $006B0063) and
                 (Cardinals2[2] = $00750071) and (Cardinals2[3] = $0074006F) and
                 (Words[9] = $0065) then Result := tagBlockquote; // "blockquote"
           end;
    $0064: if (Len = 3) then
           case (Cardinals2[0]) of // "del", "div"
             $006C0065: Result := tagDel; // "del"
             $00760069: Result := tagDiv; // "div"
           end;
    $0066: case Len of // "frame", "fieldset", "frameset"
             5: if (Cardinals2[0] = $00610072) and (Cardinals2[1] = $0065006D) then
                Result := tagFrame; // "frame"
             8: case (Cardinals2[0]) of // "fieldset", "frameset"
                  $00650069: if (Cardinals2[1] = $0064006C) and (Cardinals2[2] = $00650073) and
                             (Words[7] = $0074) then Result := tagFieldset; // "fieldset"
                  $00610072: if (Cardinals2[1] = $0065006D) and (Cardinals2[2] = $00650073) and
                             (Words[7] = $0074) then Result := tagFrameset; // "frameset"
                end;
           end;
    $0068: case Len of // "h1", "h2", "h3", "h4", "h5", "html"
             2: case (Words[1]) of // "h1", "h2", "h3", "h4", "h5"
                  $0031: Result := tagH1; // "h1"
                  $0032: Result := tagH2; // "h2"
                  $0033: Result := tagH3; // "h3"
                  $0034: Result := tagH4; // "h4"
                  $0035: Result := tagH5; // "h5"
                end;
             4: if (Cardinals2[0] = $006D0074) and (Words[3] = $006C) then
                Result := tagHtml; // "html"
           end;
    $0069: if (Len = 3) and (Cardinals2[0] = $0067006D) then Result := tagImg; // "img"
    $006C: case Len of // "li", "legend"
             2: if (Words[1] = $0069) then Result := tagLi; // "li"
             6: if (Cardinals2[0] = $00670065) and (Cardinals2[1] = $006E0065) and
                (Words[5] = $0064) then Result := tagLegend; // "legend"
           end;
    $006D: if (Len = 4) then
           if (Words[1] = $0065) then
           case (Cardinals[1]) of // "menu", "meta"
             $0075006E: Result := tagMenu; // "menu"
             $00610074: Result := tagMeta; // "meta"
           end;
    $006F: if (Len = 2) and (Words[1] = $006C) then Result := tagOl; // "ol"
    $0070: if (Len = 3) and (Cardinals2[0] = $00650072) then Result := tagPre; // "pre"
    $0073: case Len of // "sub", "sup", "span", "small", "style", "script", "strike"
             3: if (Words[1] = $0075) then
                case (Words[2]) of // "sub", "sup"
                  $0062: Result := tagSub; // "sub"
                  $0070: Result := tagSup; // "sup"
                end;
             4: if (Cardinals2[0] = $00610070) and (Words[3] = $006E) then
                Result := tagSpan; // "span"
             5: case (Cardinals2[0]) of // "small", "style"
                  $0061006D: if (Cardinals2[1] = $006C006C) then Result := tagSmall; // "small"
                  $00790074: if (Cardinals2[1] = $0065006C) then Result := tagStyle; // "style"
                end;
             6: case (Cardinals2[0]) of // "script", "strike"
                  $00720063: if (Cardinals2[1] = $00700069) and (Words[5] = $0074) then
                             Result := tagScript; // "script"
                  $00720074: if (Cardinals2[1] = $006B0069) and (Words[5] = $0065) then
                             Result := tagStrike; // "strike"
                end;
           end;
    $0074: case Len of // "td", "th", "tr", "table", "tbody", "thead", "textarea"
             2: case (Words[1]) of // "td", "th", "tr"
                  $0064: Result := tagTd; // "td"
                  $0068: Result := tagTh; // "th"
                  $0072: Result := tagTr; // "tr"
                end;
             5: case (Cardinals2[0]) of // "table", "tbody", "thead"
                  $00620061: if (Cardinals2[1] = $0065006C) then Result := tagTable; // "table"
                  $006F0062: if (Cardinals2[1] = $00790064) then Result := tagTbody; // "tbody"
                  $00650068: if (Cardinals2[1] = $00640061) then Result := tagThead; // "thead"
                end;
             8: if (Cardinals2[0] = $00780065) and (Cardinals2[1] = $00610074) and
                (Cardinals2[2] = $00650072) and (Words[7] = $0061) then
                Result := tagTextarea; // "textarea"
           end;
    $0075: if (Len = 2) and (Words[1] = $006C) then Result := tagUl; // "ul"
  end;
end;

begin
  VALUES := [
    'div',
    'span',
    'table',
    'td',
    'tr',
    'th',
    'li',
    'meta',
    'script',
    'style',
    'ol',
    'ul',
    'h1',
    'h2',
    'h3',
    'h4',
    'h5',
    'thead',
    'tbody',
    'html',
    'body',
    'blockquote',
    'address',
    'frame',
    'frameset',
    'pre',
    'button',
    'textarea',
    'strike',
    'del',
    'menu',
    'small',
    'sub',
    'sup',
    'img',
    'fieldset',
    'legend'
  ];

  try
    // бинарный поиск
    begin
      Write('Бинарный поиск(TStringList)...');
      StringList := TStringList.Create;
      try
        for k := Low(VALUES) to High(VALUES) do StringList.Add(VALUES[k]);
        StringList.Sorted := True;

        Time := GetTickCount;
        for i := 1 to ITERATIONS_COUNT do
        for k := Low(VALUES) to High(VALUES) do
        begin
          StringList.IndexOf(VALUES[k]);
        end;
        Time := GetTickCount - Time;
        Writeln(' ', Time, 'мс');
      finally
        StringList.Free;
      end;
    end;

    // хеш
    begin
      Write('Хеш поиск(Dictionary)...');
      Dictionary := TDictionary<string, Integer>.Create;
      try
        for k := Low(VALUES) to High(VALUES) do
          Dictionary.Add(VALUES[k], 0);

        Time := GetTickCount;
        for i := 1 to ITERATIONS_COUNT do
        for k := Low(VALUES) to High(VALUES) do
        begin
          Dictionary.Items[VALUES[k]];
        end;
        Time := GetTickCount - Time;
        Writeln(' ', Time, 'мс');
      finally
        Dictionary.Free;
      end;
    end;

    // кодогенерация
    begin
      Write('Кодогенерация(CachedSerializer)...');

      Time := GetTickCount;
      for i := 1 to ITERATIONS_COUNT do
      for k := Low(VALUES) to High(VALUES) do
      begin
        StrToHtmlTag(VALUES[k]);
      end;
      Time := GetTickCount - Time;
      Writeln(' ', Time, 'мс');
    end;

    // нажать Enter
    Writeln;
    Write('Press Enter');
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.