Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Lisp

Idiom #81 Round floating point number to integer

Declare the integer y and initialize it with the rounded value of the floating point number x .
Ties (when the fractional part of x is exactly .5) must be rounded up (to positive infinity).

(defun rnd (y) (floor (+ y 0.5)))
Y : constant Integer := Integer (Float'Rounding (X));

New implementation...