'Taxigeometrie' Rekursiv lösen. [Anzahl kürzester Strecken zwischen zwei Punkten]

[FF]

function x: Integer;
begin
result := 0;
if x then
result := 1;
end;

...

wäre woander

Code:

function x: Integer;
{
  if x
   return 1;
  else
   return 0;
}

oder so in der art.


aber egal, danke nochmal an dfyx und magor, funzt ja jetzt.