Commit 5e8fb4de authored by Simon Marlow's avatar Simon Marlow

accept output

parent a3bb901f
......@@ -117,7 +117,7 @@ data Tree a = Tip | Branch a (Tree a) (Tree a) deriving ()
data Tree2 a = Tip2 | Twig2 a | Branch2 a (Tree2 a) (Tree2 a) deriving ()
heapSort :: Ord a => [a] -> [a]
heapSort xs = clear (heap (0::Int) xs)
import List (partition)
import Data.List (partition)
insertSort (x:xs) = trins [] [x] xs
insertSort :: Ord a => [a] -> [a]
insertSort [] = []
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment