A skew heap (or self-adjusting heap) is a heap data structure implemented as a binary tree. Skew heaps are advantageous because of their ability to merge more quickly than binary heaps. In contrast with binary heaps, there are no structural constraints, so there is no guarantee that the height of the tree is logarithmic. Only two conditions must be satisfied:
A skew heap is a self-adjusting form of a leftist heap which attempts to maintain balance by unconditionally swapping all nodes in the merge path when merging two heaps. (The merge operation is also used when adding and removing values.) With no structural constraints, it may seem that a skew heap would be horribly inefficient. However, amortized complexity analysis can be used to demonstrate that all operations on a skew heap can be done in O(log n).[1] In fact, with denoting the golden ratio, the exact amortized complexity is known to be logφ n (approximately 1.44 log2 n).[2] [3]
Skew heaps may be described with the following recursive definition:
sh1
sh2
When two skew heaps are to be merged, we can use a similar process as the merge of two leftist heaps:
Before:
after
Alternatively, there is a non-recursive approach which is more wordy, and does require some sorting at the outset.
Adding a value to a skew heap is like merging a tree with one node together with the original tree.
Removing the first value in a heap can be accomplished by removing the root and merging its child subtrees.
In many functional languages, skew heaps become extremely simple to implement. Here is a complete sample implementation in Haskell.
singleton :: Ord a => a -> SkewHeap asingleton x = Node x Empty Empty
union :: Ord a => SkewHeap a -> SkewHeap a -> SkewHeap aEmpty `union` t2 = t2t1 `union` Empty = t1t1@(Node x1 l1 r1) `union` t2@(Node x2 l2 r2) | x1 <= x2 = Node x1 (t2 `union` r1) l1 | otherwise = Node x2 (t1 `union` r2) l2
insert :: Ord a => a -> SkewHeap a -> SkewHeap ainsert x heap = singleton x `union` heap
extractMin :: Ord a => SkewHeap a -> Maybe (a, SkewHeap a)extractMin Empty = NothingextractMin (Node x l r) = Just (x, l `union` r)