有更好的解决方案吗？

Question

我正在制作一个函数，它返回给定数字在 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)