20 lines
561 B
Text
20 lines
561 B
Text
import Std
|
|
|
|
open Std
|
|
open BinomialHeap
|
|
|
|
def h₁ : BinomialHeap Nat (· < ·) := BinomialHeap.ofList _ [2, 1, 3, 5, 4]
|
|
def h₂ : BinomialHeap Nat (· < ·) := BinomialHeap.ofList _ [0, 1, 6]
|
|
|
|
#eval h₁.head
|
|
#eval h₁.tail.toList
|
|
#eval h₁.deleteMin.map (·.fst)
|
|
#eval h₁.deleteMin.map (·.snd.toList)
|
|
#eval h₁.toList
|
|
#eval h₁.toArray
|
|
#eval h₁.toArrayUnordered.qsort (· < ·)
|
|
#eval h₁.toListUnordered.toArray.qsort (· < ·)
|
|
#eval h₁.insert 7 |>.toList
|
|
#eval h₁.insert 0 |>.toList
|
|
#eval h₁.insert 4 |>.toList
|
|
#eval h₁.merge h₂ |>.toList
|