afrunding

gistfile1.sml

fun afrund n =
    let
      val n' = Real.trunc (n * 125.0)
      val kr = Real.fromInt (n' div 100)
      val ore = Real.fromInt ((n' mod 100) div 25 * 25) / 100.0
    in kr + ore end

(* Mads og Christians *)
fun moms n = real(round(n * 4.0 * 1.25 ))/4.0;