%% "Наивная реализация quicksort"
qsort1([]) -> [];
qsort1([H | T]) ->
   qsort1([ X || X <- T, X < H ]) ++ [H] ++ qsort1([ X || X <- T, X >= H ]).

%% Очень простая функция
simple_fun(List) ->
  high_order_fun(List, fun some_module:qsort/1).

%% Добавим к каждому элементу списка случайное число от 1 до 10
%% и отсортируем список используя функцию сортировки из аргументов
high_order_fun(List, SortFun) ->
  AddRandomNumberFun = fun(Element) -> Element + random:uniform(10) end,
  NewList = lists:map(AddRandomNumperFun, List),
  SortFun(NewList).