求erlang快速排序code

有最好理解版的和最优实现版的
qsort([H|T]) ->
qsort(lists:filter(fun(N) -> N =< H end, T)) ++ [H] ++ qsort(lists:filter(fun(N) -> N >= H end, T));
qsort([]) -> [].

顶，谢谢先。貌似像我这样的初学者感觉下面的更容易理解
qsort([]) -> [];
qsort([Pivot|T]) ->
qsort([X || X <- T, X =< Pivot])
++ [Pivot] ++
qsort([X || X <- T, X > Pivot]).