DelphiとC#の比較２
これだとだいたい倍近く差が出る。

procedure TForm1.Button2Click(Sender: TObject);
function func(a:Integer):Integer;
var i:integer;
begin
Result:=0; if a<1 then exit;
Result:=1; if a<2 then exit;
for i:=1 to a-1 do Result:=Result+func(a-i)+func(i);
end;
var StartTime:int64;
begin
StartTime:=GetTickCount;
func(19);
Memo1.Lines.Add(format('%10.2fsec',[(GetTickCount-StartTime)/1000]) );
end;


private int func(int a)
{
if (a<1)return 0;
if (a<2)return 1;
int r=1;
for(int i=1;i<a;i++)r += func(a-i)+func(i);
return r;
}
private void button2_Click(object sender, System.EventArgs e)
{
DateTime stim = DateTime.Now;
func(19);
textBox1.AppendText( "\x0d\x0a"+((DateTime.Now.Ticks-stim.Ticks)/10000000.0).ToString("f") );
}