Skip to content

Instantly share code, notes, and snippets.

Forked from gsg/
Last active September 18, 2016 10:20
What would you like to do?
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 = oid
) instructions
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment