频率为0s和1s在列表中使用模式匹配和递归函数在ocaml中

Question

for(int i<0;i<Array.size;i++) 
{ 
    if(Array[i]==0) 
    count0++; 
    else if(Array[i]==1) 
    count1++; 
    else 
    System.out.println("not required"); 
} 

这是java中的代码。这将如何写入ocaml中使用模式匹配和递归函数的列表？我是OCaml的新手。

Answer 1

对于简单的折叠，您不需要使用显式递归。下面是保持计数功能：

let count (zeroes, ones) = function 
| 0 -> (zeroes + 1, ones) 
| 1 -> (zeroes, ones + 1) 
| _ -> (zeroes, ones) 

以下是如何将其应用到一个列表：

let count_list l = List.fold_left count (0, 0) l 

（如果这是一个家庭作业的问题，你应该试着问在此之前自行解决）