tinystory

function XOR(I, J: Integer): Integer;
var
  K: Integer;
begin
  Result := 0;
  K := 1;
  while I <> J do
  begin
    if odd(I) <> odd(J) then
      Inc(Result, K);
    I := I shr 1;
    J := J shr 1;
    K := K shl 1;
  end;
end;

function DayOfWeek(Y, M, D: Integer): Integer;
begin
  if M < 3 then
  begin
    Dec(Y, 1);
    Inc(M, 12);
  end;
  Result := (Y + (Y shr 2) - (Y div 100) + (Y div 400) + ((13 * M + 8) div 5) + D) mod 7;
end;

function Fib(N: Integer): Integer;
begin
  Result := Round(exp(N * Ln((1 + sqrt(5)) / 2)) / sqrt(5));
end;

// 정수형 SquareRoot. sqrt 와 비슷하거나 약간 빠르나 정수만 가능하다.
function sqrtInt(X: Integer): Integer;
var
  Y: Integer;
begin
  Result := 1;
  repeat
    Y := Result;
    Result := (X div Result + Result) div 2;
  until (Result = Y) or (Result = X div Y);
end;

// 실수형 SquareRoot. sqrt 보다 많이 느리다. (약 4~5배)
function sqrt2(X: Real): Real;
begin
  Result := exp(ln(X) / 2);
  Result := (Result + X / Result / 2);
end;

// Int64 의 경우 반환 형태만 Int64 로 바꾸면된다.
function ExtractInteger(Str: String): Integer;
var
  I: Integer;
  H: Integer;
begin
  H := 0;
  for I := Length(Str) downto 1 do
  begin
    if ('0' <= Str[I]) and (Str[I] <= '9') then
    begin
      if H > I then
      begin
        Delete(Str, H, 1);
        H := 0;
      end;
    end
    else if Str[I] = '.' then
    begin
      Delete(Str, I, Length(Str) - I + 1);
      if H > 0 then Dec(H);
    end
    else if Str[I] = '-' then
      H := I
    else
    begin
      Delete(Str, I, 1);
      if H > 0 then Dec(H);
    end;
  end;
  Val(Str, Result, H);
end;

// __int64 의 경우 반환형태를 __int64 로 바꾸고, 반환시 StrToInt64 로 변환하면 된다.
int __fastcall ExtractInteger(String Str)
{
    int H = 0;
    for (int i = Str.Length() + 1; --i; )
    {
        if ('0' <= Str[i] && Str[i] <= '9')
        {
            if (H > i)
            {
                Str.Delete(H, 1);
                H = 0;
            }
        }
        else if (Str[i] == '.')
        {
            Str.Delete(i, Str.Length() - i + 1);
            if (H > 0) H--;
        }
        else if (Str[i] == '-')
            H = i;
        else
        {
            Str.Delete(i, 1);
            if (H > 0) H--;
        }
    }
    return StrToInt(Str);
}

// ExtratInteger 에 '.' 위치에 따른 처리를 넣었다.
function ExtractFloat(Str: String): Extended;
var
  I: Integer;
  H: Integer;
  D: Integer;
begin
  H := 0;
  D := 0;
  for I := Length(Str) downto 1 do
  begin
    if ('0' <= Str[I]) and (Str[I] <= '9') then
    begin
      if H > I then
      begin
        Delete(Str, H, 1);
        H := 0;
        if D > 0 then Dec(D);
      end;
    end
    else if Str[I] = '.' then
    begin
      if D > 0 then
      begin
        Delete(Str, D, 1);
        if H > 0 then Dec(H);
      end;
      D := I;
    end
    else if Str[I] = '-' then
    begin
      H := I
    end
    else
    begin
      Delete(Str, I, 1);
      if D > 0 then Dec(D);
      if H > 0 then Dec(H);
    end;
  end;
  TextToFloat(PChar(Str), Result, fvExtended);
end;

// ExtratInteger 에 '.' 위치에 따른 처리를 넣었다.
Extended __fastcall ExtractFloat(String Str)
{
    int H = 0, D = 0;
    for (int i = Str.Length() + 1; --i; )
    {
        if ('0' <= Str[i] && Str[i] <= '9')
        {
            if (H > i)
            {
                Str.Delete(H, 1);
                H = 0;
                if (D > 0) D--;
            }
        }
        else if (Str[i] == '.')
        {
            if (D > 0)
            {
                Str.Delete(D, 1);
                if (H > 0) H--;
            }
            D = i;
        }
        else if (Str[i] == '-')
            H = i;
        else
        {
            Str.Delete(i, 1);
            if (H > 0) H--;
            if (D > 0) D--;
        }
    }
    return StrToFloat(Str);
}

typedef struct _DIV
{
    union
    {
        struct
        {
            int Mod2: 1;
            int Div2: 7;
        };
        struct
        {
            int Mod4: 2;
            int Div4: 6;
        };
        struct
        {
            int Mod8: 3;
            int Div8: 5;
        };
        struct
        {
            int Mod16: 4;
            int Div16: 4;
        };
        struct
        {
            int Value;
        };
    };
} TDiv;