sslug-teknik team mailing list archive
-
sslug-teknik team
-
Mailing list archive
-
Message #18081
Re: [OT] Sprog - Re: [TEKNIK] Delphi?
On Thu, 3 Feb 2000, Toke Herkild wrote:
>
> ----- 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.
Du misforstår hvad jeg skriver: Min pascal kode skal illustrere hvad ML
oversætteren oversætter min halerekursive ML kode til.
Det ville måske have været mere passende at skrive det i assembler, men
jeg regnede ikke med at der var ret mange der gad glo på det. Desuden
skulle jeg så have fedtet med en eller anden assem syntaks, som jeg
forlængst har glemt.
Borset fra det er Pascal ikke det samme som Delphi Pascal. :-)
Mads
--
Mads Bondo Dydensborg. madsdyd@xxxxxxxxxxxx
The IETF has an interesting enough life as is getting the "too simple"
protocols to work sanely, hardware/software providers and sysadmins have a hard
time understanding, implementing and exploiting the "too simple" stuff today.
I.e., imagine MS-mess but on Internet scale, not just desktop-scale. If you
can. ... Scary. Real scary. Halloween stuff, definitely.
- Dr. Horst H. von Brand
References