Да, quicksort выглядит красиво и понятно:

quickSort [] = []
quickSort (h : t) = quickSort [y | y <- t, y < h] ++ [h] ++ quickSort [y | y <- t, y >= h]

А bubbleSort, например ? Можно в таком же духе?