Skip to content

Instantly share code, notes, and snippets.

@pikeas

pikeas/gist:be5de8cbc9e62bb1f9fd

Created May 4, 2015 22:15
Show Gist options
  • Save pikeas/be5de8cbc9e62bb1f9fd to your computer and use it in GitHub Desktop.
Save pikeas/be5de8cbc9e62bb1f9fd to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
insert :: LogMessage -> MessageTree -> MessageTree
insert msg@LogMessage{} Leaf = Node Leaf msg Leaf
insert msg1@(LogMessage _ ts1 _) (Node left msg2@(LogMessage _ ts2 _) right) = case ts1 < ts2 of
True -> Node (insert msg1 left) msg2 right
False -> Node left msg2 (insert msg1 right)
insert _ tree@Node{} = tree
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment