Skip to content

Instantly share code, notes, and snippets.

@SteveGilham
Created April 26, 2015 14:24
Show Gist options
  • Save SteveGilham/c9d0fcef53e8ed656c13 to your computer and use it in GitHub Desktop.
Save SteveGilham/c9d0fcef53e8ed656c13 to your computer and use it in GitHub Desktop.
Continuations - motivating example
let readChar f p =
Getq ::
(match p with
| (Getp c) :: p1 -> f c p1
| _ -> []);;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment