Skip to content

Instantly share code, notes, and snippets.

@kunigami

kunigami/conformToForcedFrontInvariant.ml

Created March 18, 2017 20:54
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/d18f44127e04d4b26c2afcaab916cb8d to your computer and use it in GitHub Desktop.
Save kunigami/d18f44127e04d4b26c2afcaab916cb8d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
conformToForcedFrontInvariant.ml
let conformToForcedFrontInvariant (
queue: 'a queueSuspended
): ('a queueSuspended) = match queue with
| ([], frontSize, lazyFront, rearSize, rear) ->
(Lazy.force lazyFront, frontSize, lazyFront, rearSize, rear)
| queue -> queue
;;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment