шейкерная сортировка C++

[zaki]

Есть у кого исходник?
Сам уже замучился писать, можно на любом яп код, переведу...Желательно код как можно проще

[rUs_LAN]

Пример. Шейкерная сортировка по возрастанию массива A.

program Shaker;
 var A:array[1..100] of integer;
 N,i,k,x,j,d : integer;

begin
 write('количество элементов массива ');
 read(N);
 for i:=1 to n do read(A[i]);
 d:=1; i:=0;
 for k:=n-1 downto 1 do { k - количество сравниваемых пар }
  begin
    i:=i+d;
    for j:=1 to k do
    begin
      if (A[i]-A[i+d])*d>0 then
       {меняем местами соседние элементы}
      begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end;
      i:=i+d;
    end;
  d:=-d;
 {меняем направление движения на противоположное}
 end;
 for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.

[vanomux]

вот отсюда можно на C++ скачать
http://algorithmlib.org/sort_shik