Skip to content

Instantly share code, notes, and snippets.

@Bloofer

Bloofer/mismatch.ml

Created January 23, 2018 08:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Bloofer/187bcb26a1c070c9a09a64d2acddfe7e to your computer and use it in GitHub Desktop.
Save Bloofer/187bcb26a1c070c9a09a64d2acddfe7e to your computer and use it in GitHub Desktop.
Download ZIP
mismatch.ml
Raw
mismatch.ml
open Core.Std
let find_mismatches map1 map2 =
Map.to_sequence map1
|> Sequence.filter_map ~f:(fun (key, data) ->
match Map.find map2 key with
| None -> None
| Some data' ->
if data' <> data then Some key
else None
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment