Module Binary_heap_test

module Binary_heap_test: sig .. end

module IntMinHeap: Binary_heap.BinaryHeap(sig

type t = int

val compare : 'a -> 'a -> int

val show : int -> string

end)

module IntMaxHeap: Binary_heap.BinaryHeap(sig

type t = int

val compare : 'a -> 'a -> int

val show : int -> string

end)

val extract_acc : ('a -> 'b option * 'a) -> 'a -> 'b list