頻率爲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 

（如果這是一個家庭作業的問題，你應該試着問在此之前自行解決）