qsort([]) -> [];
qsort([H|T]) ->
  Smaller = [N || N <- T, N =< H],
  Bigger = [N || N <- T, N > H],
  qsort(Smaller) ++ [H] ++ qsort(Bigger).

qsort([]) -> [];
qsort([H|T]) ->
  {Bigger,Smaller} = lists:partition(fun(N) -> N > H end, T),
  qsort(Smaller) ++ [H] ++ qsort(Bigger).