Skip to content

Instantly share code, notes, and snippets.

@bradclawsie

bradclawsie/bst

Created March 19, 2014 04:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bradclawsie/9635492 to your computer and use it in GitHub Desktop.
Save bradclawsie/9635492 to your computer and use it in GitHub Desktop.
Download ZIP
balanced search tree
Raw
bst
data Tree = Empty | Node Tree Int Tree deriving (Show)
insert n Empty = Node Empty n Empty
insert n (Node l i r) = if n <= i then Node (insert n l) i r else Node l i (insert n r)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment