Как задать рекурсией?

[Irdis]

Помогите с рекурсией, а то чет в голову не приходит как там сортировку рекурсией сделать. Прогу, вроде, выложил!

[begemotikdin]

alexBlack, ага, спс!
Да мы кроме паскаля больше ничего и не видели))))

Ага, всё работает, толкьо вот одно но... прога вылетает как только в массив вводит одинаковые эллементы.... например две двойки!

сорри, сложение )))))))

[Irdis]

Был косяк там один, уже не помню какой) Терь тругая трабла. Выдаёт повторяющиеся перестановки, при совпадении чисел массива...

[alexBlack]

Я и говорил, что без учета повторений.
Решение в лоб - не переставлять элементы, если такой уже был:

procedure getPermutation(A:TArray; M:integer);
var S:String;
    i, c, j:integer;
    b:boolean;
begin
   if M = 0 then begin
      S := '';
      for i:=0 to N do S := S + intToStr(A[i])+' ';
      form1.memo1.lines.add(S);
   end else begin
      for i:=M downto 0 do begin
        
        b := true;
        for j := i+1 to M do begin
           if a[j] = a[i] then begin
              b := false;
              break;
           end;
        end;
        if B then begin
        
           c := a[M]; a[M] := a[i]; a[i] := c;
           getPermutation(A, M-1);
           c := a[M]; a[M] := a[i]; a[i] := c;
        
        end;
        
      end;
   end;
end;

[PSix1_73]

может кто и сдесь мне поможет
http://www.programmersforum.ru/showt...d=1#post456354
а то уже отчаился...