Data.Set.Splay

Purely functional splay sets.

• http://www.cs.cmu.edu/~sleator/papers/self-adjusting.pdf

Data structures

data Splay a

Constructors

Leaf

Node (Splay a) a (Splay a)

Instances

Eq a => Eq (Splay a)

Show a => Show (Splay a)

Creating sets

empty :: Splay a

Empty set.

singleton :: a -> Splay a

Singleton set.

insert :: Ord a => a -> Splay a -> Splay a

Insertion.

>>> insert 5 (fromList [5,3]) == fromList [3,5]
True
>>> insert 7 (fromList [5,3]) == fromList [3,5,7]
True
>>> insert 5 empty            == singleton 5
True

fromList :: Ord a => [a] -> Splay a

Creating a set from a list.

>>> empty == fromList []
True
>>> singleton 'a' == fromList ['a']
True
>>> fromList [5,3,5] == fromList [5,3]
True

Converting a list

toList :: Splay a -> [a]

Creating a list from a set. O(N)

>>> toList (fromList [5,3])
[3,5]
>>> toList empty
[]

Membership

member :: Ord a => a -> Splay a -> (Bool, Splay a)

Checking if this element is a member of a set?

>>> fst $ member 5 (fromList [5,3])
True
>>> fst $ member 1 (fromList [5,3])
False

Deleting

deleteMin :: Splay a -> (a, Splay a)

Deleting the minimum element.

>>> snd (deleteMin (fromList [5,3,7])) == fromList [5,7]
True
>>> deleteMin empty
*** Exception: deleteMin

Checking

null :: Splay a -> Bool

See if the splay set is empty.

>>> Data.Set.Splay.null empty
True
>>> Data.Set.Splay.null (singleton 1)
False

Set operations

union :: Ord a => Splay a -> Splay a -> Splay a

Creating a union set from two sets.

>>> union (fromList [5,3]) (fromList [5,7]) == fromList [3,5,7]
True

Helper functions

partition :: Ord a => a -> Splay a -> (Splay a, Bool, Splay a)

Splitting smaller and bigger with splay. Since this is a set implementation, members must be unique.

minimum :: Splay a -> (a, Splay a)

Finding the minimum element.

>>> fst $ minimum (fromList [3,5,1])
1
>>> minimum empty
*** Exception: minimum

valid :: Ord a => Splay a -> Bool

Checking validity of a set.

showSet :: Show a => Splay a -> String

printSet :: Show a => Splay a -> IO ()