Skip to content

Instantly share code, notes, and snippets.

@KKostya
Last active October 21, 2018 19:05
Show Gist options
  • Save KKostya/53d0d8132c402b6659fe115352d3dd64 to your computer and use it in GitHub Desktop.
Save KKostya/53d0d8132c402b6659fe115352d3dd64 to your computer and use it in GitHub Desktop.
let valid_door_pmf : (door => real) => bool =
(pmf) => Real.(
(pmf(DoorA) + pmf(DoorB) + pmf(DoorC) == 1.0) &&
(pmf(DoorA) >= 0.0) &&
(pmf(DoorB) >= 0.0) &&
(pmf(DoorC) >= 0.0)
);
valid_door_pmf(pDoorsEqual)
val valid_door_pmf : (door -> real) -> bool = <fun>
- : bool = true
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment