Skip to content

Instantly share code, notes, and snippets.

@jasim

jasim/test.ml

Forked from gsg/test.ml
Last active September 18, 2016 10:20
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 jasim/ecb9ab8ab661be3e947b4e514b328a6a to your computer and use it in GitHub Desktop.
Save jasim/ecb9ab8ab661be3e947b4e514b328a6a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.ml
type instruction =
| Order of {id: int; price: float; size: int}
| Cancel of {id: int}
| Cancel_replace of {id: int; new_price: float; new_size: int}
let filter_by_oid instructions oid =
List.filter (function
o.id = oid
) instructions
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment