- Placerun.get_pqueries pr
- |> List.map (best_placement |- dist &&& Pquery.name)
- |> List.sort ~cmp:(flip compare)
- |> List.enum
- |> (match fvo max_dist with
- | Some max_dist -> Enum.filter (fun (dist, _) -> dist > max_dist)
- | None -> identity)
- |> (match fvo max_reported with
- | Some n -> Enum.take n
- | None -> identity)
- |> Enum.map (fun (dist, name) -> [name; Printf.sprintf "%1.6f" dist])
- |> List.of_enum
- |> self#write_ll_tab