On-line конвертер кода

Исходный код Delphi (можно поместить здесь свой)

unit sort_coctail;

interface

uses
  ArrayLib;

function SortCoctail(var aArray:TIntegerArray):Integer;
function ArraySort(var aArray:TIntegerArray):Integer;

implementation

function SortCoctail(var aArray:TIntegerArray):Integer;
var
  nn, i, lLeft, lRight, hasMoves : Integer;
begin
  nn:=0; hasMoves:=1; lLeft:=0; lRight:=Pred(ArrayLength(aArray));
  while (lLeft < lRight) and (hasMoves>0) do begin;
      hasMoves := 0;
      //Сдвигаем к концу массива "тяжелые элементы"
      for i := lLeft to Pred(lRight) do 
        if aArray[i] > aArray[i+1] then begin
          ArraySwap(aArray, i, i+1);
	  Inc(nn);
          hasMoves := 1;
        end;

Dec(lRight); // уменьшаем правую границу

//Сдвигаем к началу массива "легкие элементы"
      for i := lRight downto Succ(lLeft) do 
        if aArray[i] < aArray[i-1] then begin
          ArraySwap(aArray, i-1, i);
          Inc(nn);
          hasMoves := 1;
        end;

Inc(lLeft); // увеличиваем левую границу
  end;
  Result:=nn;
end;

function ArraySort(var aArray:TIntegerArray):Integer;
begin
  Result:=SortCoctail(aArray);
end;

end.

C++ Python