如何求两个浮点数的平均值

Question

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

let int_average x y = (x + y) / 2

工作正常，但是当我尝试为浮点数编写它时

let float_average x y = (x +. y) / 2.

失败并出现错误

This expression has type float but an expression was expected of type int

Answer 1

您忘记了 "floatify" 除法运算符。 / 应该是 /.，就像 +. 是 + 的浮点变体：

let float_average x y = (x +. y) /. 2.