有更好的解决方案吗？

如何解决有更好的解决方案吗？

我正在制作一个函数，该函数返回给定数字在 int 列表中出现的次数。我有一个解决方案，但我觉得它相当初级，可以做得更好（也许使用 match 和 rec ？？）。我也觉得样式不对，但我还不太确定如何设置 OCaml 的样式。

代码如下：

let num_occurs (n : int) (nums : int list) : int =
  let x = List.fold_left (+) 0 
  (List.filter (fun (x : int) -> 
  if x = n then true else false) nums) in 
  x / n ;;

解决方法

所以你所拥有的看起来很不错，虽然我不确定 x / n 打算做什么。使用 List.fold_left 和 List.filter 是 OCaml 的一个很好的直觉。不过，为了使它更简洁，只需使用 List.length！作为奖励，您可以直接使用 x = n 而不是 if then else。

let num_occurs (n : int) (nums : int list) : int =
  List.length (List.filter (fun x -> x = n) nums)