sslug-teknik team mailing list archive

["Toke Herkild" <tocke.san@xxxxxxxxxx>]

----- Original Message ----- 
From: Mads Bondo Dydensborg <madsdyd@xxxxxxxxxxxx>
To: <sslug-teknik@xxxxxxxx>
Sent: Thursday, February 03, 2000 10:39 AM
Subject: [TEKNIK] [OT] Sprog - Re: [TEKNIK] Delphi?


De fleste ML oversættere ville optimere ovenstående halerekursive funktion
til noget der minder mere om en while løkke. Dette kan jeg ikke
umiddelbart skrive i ML (men oversætteren kan), men i Pascal bliver det
til noget i den her stil

function fak (n : integer) : integer 
  function fak_ (n : integer) : integer 
  var
    tmp : integer;
  begin
    tmp := 1;
    while (n > 1) do 
    begin
      tmp := tmp * n;
      dec(n); 
    end
    fak_ := tmp;
  end;
begin
  if (n > 1) then
    fak := fak_(n)
  else 
    fak := 1;
  endif;
end;
 
---- ----- - -- ---- -- -- - - -
 
Nope ...
I Delphi ville du bruge en Try... Except, den ville gribe de muligheder der ellers ville f#cke din kode totalt op, Hvis du laver en evigheds lykke eller lign. for du en kanon Exception i Delphi.