package multicore-bench

  1. Overview
  2. Docs

Source file list.ml

1
2
3
4
5
6
include Stdlib.List

let zip_by (type t) (compare : t -> _) xs ys =
  let (module S) = Set.make compare in
  let ys = S.of_list ys in
  xs |> filter_map @@ fun x -> S.find_opt x ys |> Option.map @@ fun y -> (x, y)
OCaml

Innovation. Community. Security.