lib/mlton/heap/fibonacci.fun

   1 (* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 functor FibonacciHeap(S: HEAP_STRUCTS): HEAP =
   9 struct
  10
  11 open S
  12
  13 structure Heap = ForestHeap(S)
  14 open Heap
  15
  16 val new = newLazy
  17
  18 val insert = insertLazy
  19
  20 val decreaseKey = decreaseKeyCut
  21
  22 val delete = deleteCut
  23
  24 val union = unionLazy
  25
  26 end