用list.fold找到平均值

Question

只是尝试制作一个非常简单的平均float list -> float，找到列表的平均值。 这是我的代码：

let list ls = List.fold (fun acc float -> acc + float) 0.0 ls;;

list [1.60; 2.30; 5.0; 2.30];;

输出为11.2

我需要在函数中添加一些内容，可以将11.2与x元素分开来查找平均值。

任何帮助？

Answer 1

如果你想只迭代列表一次，你可以平行计算它的长度（使用元组`（sum，len）'作为累加器），然后再划分：

let avg xs = 
   xs 
   |> List.fold (fun (sum,len) x -> (sum+x,len+1.0)) (0.0,0.0) 
   |> (fun (sum,len) -> sum / len)

如果您愿意，可以用无点样式编写：

let avg = 
   List.fold (fun (sum,len) x -> (sum+x,len+1.0)) (0.0,0.0) 
   >> (fun (sum,len) -> sum / len)

这会给你：

> avg [1.0;2.0;3.0];;
val it : float = 2.0

但当然，扩展您的功能的最简单方法是获取列表的长度并除以它：

let avg ls = 
   List.fold (fun acc float -> acc + float) 0.0 ls / (float ls.Length)

对于列表这没有任何区别 - 但是您可以轻松地将上述版本扩展到seqs，并且将产生差异（迭代seq一次或两次）：

let avg : float seq -> float = 
   Seq.fold (fun (sum,len) x -> (sum+x,len+1.0)) (0.0,0.0) 
   >> (fun (sum,len) -> sum / len)