有更好的解决方案吗？

Question

我正在制作一个函数，returns 给定数字在 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 ;;

Answer 1

所以你的内容看起来不错，虽然我不确定 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)

有更好的解决方案吗？

Is there a better solution?

ocaml

higher-order-functions