Delphi : 気持ち悪いコーディングスタイル
procedure Tarai (x: Integer; y: Integer; z: Integer): Integer; begin if x <= y then Result := y else Result := Tarai (Tarai (x-1, y, z) ,Tarai (y-1, z, x) ,Tarai (z-1, x, y)); end;
最近は、これが自然に見えるようになってきた。
procedure Tarai (x: Integer; y: Integer; z: Integer): Integer; begin if x <= y then Result := y else Result := Tarai (Tarai (x-1, y, z) ,Tarai (y-1, z, x) ,Tarai (z-1, x, y)); end;
最近は、これが自然に見えるようになってきた。