F# Checked arithmetic operator overloading example

checked.fs

open System

let (+) x y = Checked.(+) x y

let number = Random().Next()

let rec guess (lower, upper)  =
    let x = (lower + upper) / 2
    if number > x then
        guess (x, upper)
    elif number < x then
        guess (lower, x)
    else x
   
let x = guess(Int32.MinValue, Int32.MaxValue)