Skip to content

Instantly share code, notes, and snippets.

@cemerick

cemerick/foo.ml

Created February 14, 2019 17:46
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 cemerick/b416d984e61864d41edcf2aacafb5b17 to your computer and use it in GitHub Desktop.
Save cemerick/b416d984e61864d41edcf2aacafb5b17 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.ml
let rec sweep responsibility t =
let neighbors = of_list t.members
|> filter (G.bounds %> extentEligible)
|> filter (distinct seenMembers G.bounds) in
|> persistent
if not @@ is_empty neighbors
then neighbors
else do_something_else
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment