notas-tsfc/ordenar.hs~

ordenar [] = []
ordenar (x:xs) = ordenar chico ++ [] ++ ordenar grande
  where
    chico =[a | a<-xs, a<=x]
    grande = [b | b<- xs, b>x]