Skip to content

Instantly share code, notes, and snippets.

@kunigami
Created March 18, 2017 21:10
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 kunigami/9a6f74fb2a132b0729e3f30348a1fef7 to your computer and use it in GitHub Desktop.
Save kunigami/9a6f74fb2a132b0729e3f30348a1fef7 to your computer and use it in GitHub Desktop.
let peek (queue: 'a queueSuspended): 'a = match queue with
| ([], _, _, _, _) -> raise Empty_queue
| (head :: forcedFront, _, _, _, _) -> head
;;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment