递归函数ocaml的，我用下面的代码，试图把连续数字的平均值的整数列表成为一个新列表不工作

Question

：

let newList = [] 
let rec average2 xs = 
match xs with 
| [] -> newList 
| x :: [] -> newList 
| x :: x' :: [xs] -> append newList [((x + x')/2)] average2 x' :: [xs];; 

，但我不断收到以下错误和Don”理解为什么： 错误：此函数的类型为'列表 - >'列表 - >'列表它应用于太多的参数;也许你忘了';'。

Answer 1

您正在将average2函数传递给append函数，而不是在最后一行中调用它。另外，newList为空，不会发生突变或读取。您可以在返回时将新头添加到列表中。

将其更改为

((x + x')/2) :: (average2 x' :: [xs])