Re: Ada function sqrt(x)

[mheaney@ni.net (Matthew Heaney)]

Oops!  Of course I meant:


   generic
      type T is range <>;
   function Generic_Square_Root (N : T) return T'Base;

   function Generic_Square_Root (N: T) return T'Base is
      The_Square_Root : T'Base := N/2;
   begin
      loop
         declare
            The_New_Value : constant T'Base := 
               (The_Square_Root + N / The_Square_Root) / 2;
         begin
            exit when The_New_Value = The_Square_Root;
            The_Square_Root := The_New_Value;                  -- This
statement is important!
         end;
      end loop;

      return The_Square_Root;
   end Generic_Square_Root; 

matt

--------------------------------------------------------------------
Matthew Heaney
Software Development Consultant
mheaney@ni.net
(818) 985-1271