robturtle
2/4/2016 - 12:18 AM

insertion_sort.hs

inssort (x:xs) = insert x (inssort xs)
  where insert y (z:zs) | y > z = z : insert y zs
        insert y zs = y:zs
inssort _ = []