Erlangでクイックソート

-module(qsort).
-import(lists, [append/2]).
-export([qsort/1]).

qsort([])-> [];
qsort([First|Rest])->
  append([X || X <- qsort(Rest), X < First],
    append([First], [X || X <- qsort(Rest), X > First])).