如何获得两个浮点数的平均值

Lem*_*ter 2 ocaml operator-overloading operators

我想获得2个浮点数的平均值。我的整数变体函数

let int_average x y = (x + y) / 2
Run Code Online (Sandbox Code Playgroud)

工作正常,但当我尝试将其写为浮点数时

let float_average x y = (x +. y) / 2.
Run Code Online (Sandbox Code Playgroud)

它因错误而失败

此表达式的类型为float,但应为int类型的表达式

gle*_*nsl 5

您忘记了“浮动”除法运算符。/应该是/.,就像以下+.类型的float变体一样+

let float_average x y = (x +. y) /. 2.
Run Code Online (Sandbox Code Playgroud)