Skip to content

Instantly share code, notes, and snippets.

@sethlivingston

sethlivingston/cards-p1-2.txt

Last active June 1, 2016 15:28
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 sethlivingston/3fe5072b0882dbc536a2d081a55a32b2 to your computer and use it in GitHub Desktop.
Save sethlivingston/3fe5072b0882dbc536a2d081a55a32b2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cards-p1-2.txt
Reason # type face = | Jack | Queen | King | Ace;
type face = Jack | Queen | King | Ace
Reason # let f1 = Queen;
let f1 : face = Queen
Reason # let f2 = Ace;
let f2 : face = Ace
Reason # f1 > f2;
- : bool = false
Reason # f1 < f2;
- : bool = true
Reason # f1 == f2;
- : bool = false
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment