dlist- Difference lists

Copyright(c) 2006-2009 Don Stewart, 2013-2014 Sean Leather
LicenseSee LICENSE file
Safe HaskellNone




Difference lists: a data structure for O(1) append on lists.



data DList a Source

A difference list is a function that, given a list, returns the original contents of the difference list prepended to the given list.

This structure supports O(1) append and snoc operations on lists, making it very useful for append-heavy uses (esp. left-nested uses of ++), such as logging and pretty printing.

Here is an example using DList as the state type when printing a tree with the Writer monad:

import Control.Monad.Writer
import Data.DList

data Tree a = Leaf a | Branch (Tree a) (Tree a)

flatten_writer :: Tree x -> DList x
flatten_writer = snd . runWriter . flatten
      flatten (Leaf x)     = tell (singleton x)
      flatten (Branch x y) = flatten x >> flatten y



fromList :: [a] -> DList a Source

Convert a list to a dlist

toList :: DList a -> [a] Source

Convert a dlist to a list

apply :: DList a -> [a] -> [a] Source

Apply a dlist to a list to get the underlying list with an extension

apply (fromList xs) ys = xs ++ ys

Basic functions

empty :: DList a Source

Create a dlist containing no elements

singleton :: a -> DList a Source

Create dlist with a single element

cons :: a -> DList a -> DList a infixr 9 Source

O(1). Prepend a single element to a dlist

snoc :: DList a -> a -> DList a infixl 9 Source

O(1). Append a single element to a dlist

append :: DList a -> DList a -> DList a Source

O(1). Append dlists

concat :: [DList a] -> DList a Source

O(spine). Concatenate dlists

replicate :: Int -> a -> DList a Source

O(n). Create a dlist of the given number of elements

list :: b -> (a -> DList a -> b) -> DList a -> b Source

O(n). List elimination for dlists

head :: DList a -> a Source

O(n). Return the head of the dlist

tail :: DList a -> DList a Source

O(n). Return the tail of the dlist

unfoldr :: (b -> Maybe (a, b)) -> b -> DList a Source

O(n). Unfoldr for dlists

foldr :: (a -> b -> b) -> b -> DList a -> b Source

O(n). Foldr over difference lists

map :: (a -> b) -> DList a -> DList b Source

O(n). Map over difference lists.