Skip to content

Instantly share code, notes, and snippets.

@Abhiroop

Abhiroop/block7.hs

Last active October 30, 2017 11:57
Show Gist options
  • Save Abhiroop/baa9172329781ef99146d9f7c4912baa to your computer and use it in GitHub Desktop.
Save Abhiroop/baa9172329781ef99146d9f7c4912baa to your computer and use it in GitHub Desktop.
Download ZIP
Raw
block7.hs
delete :: (Ord a) => a -> Tree a -> Tree a
delete x t = makeBlack $ del x t
where makeBlack (T _ a y b) = T B a y b
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment