Re: ee9, a GNU emulator of the EE KDF9

[Bill Findlay <yaldnif.w@blueyonder.co.uk>]

On 30/08/2011 12:51, in article 1gw7bd73wia3k$.fsth1w5i71ts.dlg@40tude.net,
"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote:

> On Tue, 30 Aug 2011 11:39:45 +0100, Bill Findlay wrote:
> 
>> Jensen's device has yet to (re-)surface in Ada.
> 
> http://rosettacode.org/wiki/Jensen%27s_Device#Ada
> 

Jensen's device would be written more like this in Ada 60:

> procedure Jensen_Device is
> 
>   function Sum (
>                 X  : in out Float;
>                 Lo,
>                 Hi : in Float;
>                 F  : in Float with Parameter_Mode => By_Name  -- 8-)
>                ) 
>    return Float is
>       Temp : Float := 0.0;
>    begin
>       X := Lo;
>       while X <= Hi loop
>          Temp := Temp + F;
>          X := X + 1.0;
>       end loop;
>       return Temp;
>    end Sum;
>     
>    Y : Float;
> 
> begin
>    Put_Line (Float'Image (Sum (Y, 1.0, 100.0, 1.0 / Y)));
> end Jensen_Device;

Much neater!

-- 
Bill Findlay
with blueyonder.co.uk;
use  surname & forename;