Re: how to round integers (Figured it out!)

[Jeffrey Carter <spam@spam.com>]

Thanks for the timings. I suspected that converting to floating-point 
would be faster.

Robert I. Eachus wrote:
> 
>   generic
>     type Int is range <>;
>   function Rounding2(Dividend, Divisor: Int) return Int;
> 
>   function Rounding2(Dividend, Divisor: Int) return Int is
>   begin
>     return Int(Long_Float(Dividend)/Long_Float(Divisor));
>   end Rounding2;

Except that Long_Float is (technically) not portable; implementations 
are not required to define Long_Float. So I guess the fully portable way 
to implement this would be

with System;
function Rounding2 (Dividend, Divisor: Int) return Int is
    type Big is digits System.Max_Digits;
begin -- Rounding2
    return Int (Big (Dividend) / Big (Divisor) );
end Rounding2;

-- 
Jeff Carter
"You cheesy lot of second-hand electric donkey-bottom biters."
Monty Python & the Holy Grail