Recursive bubble sort in Erlang (just for fun)

bubble.erl

-module(bubble).
-export([sort/1, sort/2]).

sort(List) ->
  sort(fun erlang:'=<'/2, List, []).

sort(Compare, List) ->
  sort(Compare, List, []).


% Pop bubble from input, push it to correct position in tail, than repeat until no bubbles left
sort(Compare, [Bubble|Bubbles], SortedTail) ->
  Sorted = push_bubble(Compare, Bubble, SortedTail),
  sort(Compare, Bubbles, Sorted);
sort(_Compare, [], Sorted) ->
  Sorted.

% while bubble compares after head, continue pushing
push_bubble(Compare, Bubble, [Hd|Tail] = List) ->
  case Compare(Bubble, Hd) of
    true -> [Bubble|List];
    false -> [Hd|push_bubble(Compare, Bubble, Tail)]
  end;
push_bubble(_Compare, Bubble, []) ->
  % Termination
  [Bubble].