Treap.Pretty

Very nice Treap visualisation.

Documentation

pretty :: forall m a. (Coercible m a, Show a) => Treap m a -> String

Show Treap in a pretty way using compactShowNode function.

prettyPrint :: forall m a. (Coercible m a, Show a) => Treap m a -> IO ()

Call pretty function and output the result directly to stdout.

prettyWith :: forall m a. (Size -> Priority -> m -> a -> String) -> Treap m a -> String

Show Treap in a nice way using given function to display node.

compactShowNode :: forall m a. (Coercible m a, Show a) => Size -> Priority -> m -> a -> String

Show Treap node in a format:

<size>,<acc>:a

Internal implementation details

data BinTree

Intermidiate structure to help string conversion.

Constructors

Leaf

Branch String BinTree BinTree

showTree :: BinTree -> String

Hardcore function responsible for pretty showing of the BinTree data type.

middleLabelPos :: String -> Int

Calculates position of middle of non-space part of the string.

>>> s = "   abc "
>>> length s
7
>>> middleLabelPos s
4

branchLines :: Int -> [String]

Draws branches of the given height.

>>> putStrLn $ toLines $ branchLines 1
╱╲

>>> putStrLn $ toLines $ branchLines 2
 ╱╲
╱  ╲

>>> putStrLn $ toLines $ branchLines 3
  ╱╲
 ╱  ╲
╱    ╲