자주 사용하는 이름 검색

Question

아이디어를 얻을 수 없습니다. 가장 자주 사용되는 이름을 찾는 방법

type person = {name:string; surname:string} 

let persons=[{name:"Jack";surname:"YYY"}; 
      {name:"Joe";surname:"XYX"}; 
      {name:"Jack";surname:"XXY"}] 

Answer 1

// You have to use '=' instead of ':' between field names and field values 
let persons = 
    [ {name = "Jack"; surname = "YYY"}; 
     {name = "Joe"; surname = "XYX"}; 
     {name = "Jack"; surname = "XXY"} ] 

// val it : string = "Jack" 
persons |> Seq.countBy (fun {name = s} -> s) 
     |> Seq.maxBy snd 
     |> fst