我一直在试图总结我的头周围fold_left
和fold_right
。在实践中,我一直在尝试重写许多功能fold_left
并fold_right
增强我的知识。例如,在查找列表的平均值时,我将使用折叠计算列表的总和和长度。
let sum_l xs = List.fold_left (fun x y -> x + y) 0 xs;;
let len_l xs = List.fold_left (fun x _ -> x + 1) 0 xs;;
然后我继续寻找平均值。这是我的问题。是否可以将这两个值全部合并为一个fold_left
?我应该如何编写匿名函数?谢谢!
您只需要使用一对作为累加器:
# let sum_and_len xs = List.fold_left (fun (s,l) x -> s+x, l+1) (0,0) xs;;
val sum_and_len : int list -> int * int = <fun>
# sum_and_len [0;1;2;3];;
- : int * int = (6, 4)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句