function x = bubble_sort(x) %header
  n = length(x); %variables
  swapPerformed = 1; %initSwap
  for i = n-1:1 %outerLoop
    swapPerformed = 0; %resetSwap
    for j = 2:i %innerLoop
      if x(j-1) > x(j) %if
        temp=x(j-1); x(j-1)=x(j;) x(j)=temp; %swap
        swapPerformed = 1; %swap=true
      end %endif
    end %endInnerLoop
  if ~swapPerformed break end %endOuterLoop
end; %end