(* file: min3isFactorcloseEnough.ml
 * author: Bob Muller
 *
 * Code introducing functions in OCaml.
 *)

(* min3 : int -> int -> int -> bool
 *)
let min3 n1 n2 n3 = min n1 (min n2 n3)

(* isFactor : int -> int -> bool
 *)
let isFactor m n = n mod m = 0

(* closeEnough : float -> float -> bool
 *)
let closeEnough a b = abs_float(a -. b) < 1e-6