Pythagoras CPS

PythagorasCPS.fs

let addCps a b cont : unit =
    cont (a + b)

let squareCps x cont : unit =
    cont (x * x)

let sqrtCps x cont : unit =
    cont (sqrt x)

// Pythagoras rewritten in CPS
let pythagorasCps a b cont : unit =
    squareCps a (fun aa ->
        squareCps b (fun bb ->
            addCps aa bb (fun aabb ->
                sqrtCps aabb (fun result ->
                    cont result)
            )
        )
    )