Implementation for Delphi

[ritalin]

手元にgit入れてなく、hatenaアカウントももっていないため、Issueで失礼します。

試しにDelphiのコード書いてみました・・・
というかほぼCそのままの写しで済んでしまったわけですが・・・。

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function FastInvSqrt(x: single): single;
var
  i: integer;
  y: single;
begin
  i := PInteger(@x)^;
  i := $5f3759df - (i shr 1);
  y := PSingle(@i)^;

  Result := y * (1.5 - 0.5 * x * y * y);
end;

var
  line: string;
  f: single;
begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
    repeat
      Readln(line);
      if line = '' then Break;
      if Single.TryParse(line, f) then begin
        Writeln(FastInvSqrt(f));
      end;
    until false;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[itchyny]

ありがとうございます。リポジトリに取り込んでもよろしいでしょうか。pull request頂いたらそのままmergeいたします。 (いただいたコードを自分のアカウントでコミットするのはあまり良くないと思っているので)

[ritalin]

ブログへのコメント代りなので、気にせず取り込んじゃってください。
コミットログにでも、ちょこっと名前載っけといていただければそれで十分です。

[ritalin]

ファイル名忘れてた。
Project1.dprとしておいてください。
Delphiにおいて、.dprがメインルーチンに相当します。
少なくともこのファイルがあれば、残りは自動で作ってくれたはず(ちょっと記憶あやしいけど

[itchyny]

ありがとうございます