Skip to content

Instantly share code, notes, and snippets.

@gsg

gsg/test.ml

Created October 30, 2016 11:50
Show Gist options
  • Save gsg/d9fae67ef87919226d61d90f72d019b6 to your computer and use it in GitHub Desktop.
Save gsg/d9fae67ef87919226d61d90f72d019b6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.ml
type xy_part = [`X of int | `Y of bool]
type pre = [xy_part | `Pcon of pre * pre];;
let rec pcon_to_lstm (arg: pre) : xy_part list =
match arg with
| `Pcon (a, b) -> (pcon_to_lstm a) @ (pcon_to_lstm b)
| (#xy_part as x) -> [x]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment