Nearly identical implementation in Erlang:
qsort([]) -> [];
qsort([Pivot|Rest]) ->
qsort([ X || X <- Rest, X < Pivot])
++ [Pivot] ++
qsort([ X || X <- Rest, X >= Pivot]).