spacepaste

  1.  
  2. Placerun.get_pqueries pr
  3. |> List.map (best_placement |- dist &&& Pquery.name)
  4. |> List.sort ~cmp:(flip compare)
  5. |> List.enum
  6. |> (match fvo max_dist with
  7. | Some max_dist -> Enum.filter (fun (dist, _) -> dist > max_dist)
  8. | None -> identity)
  9. |> (match fvo max_reported with
  10. | Some n -> Enum.take n
  11. | None -> identity)
  12. |> Enum.map (fun (dist, name) -> [name; Printf.sprintf "%1.6f" dist])
  13. |> List.of_enum
  14. |> self#write_ll_tab
  15.