let getScore =
  let answers = ["b"; "a"; "a"; "c"; "d"; "d"; "c"; "a"; "a"; "d"; "a"; "d"; "a"; "a"; "d"; "e"]
  List.map2 (=) answers >> List.filter id >> List.length

let getCorrect l = l |> List.map (fun (name, ans) -> (name, getScore ans))