Toque y fama en F#

tyf.fs

let comparar num sec = 
  let rec tyf ns xs ys =
      match (ns, xs, ys) with
      | ([], _, _) -> (0,0)
      | (n::ns, x::xs, ys) -> 
          let (t,f) = tyf ns xs ys
          if n = x then (t,f+1) else (if List.exists (fun x -> x = n) ys then (t+1,f) else (t,f))
  tyf num sec sec