vsechny_permutace_retezce [Programování]

 
(*
 * Vypise vsechny retezce, ktere vzniknou zpermutovanim znaku retezce
 * "ceho", kazdy takovy retezec vypise na samostatnem radku a pripoji
 * pred nej retezec "prefix".
 *)
procedure vypisPermutaceStep(ceho, prefix: string);
var
    i: integer;
    zbyvaZpermutovat,
    novyPrefix: string;
begin
    {permutace prazdne mnoziny = 1prvkova mnozina, prvkem prazdna posloupnost}
    if (length(ceho) = 0) then begin
        writeln(prefix);
 
    {jinak postupne fixujeme jednotlive prvky, rekurzivne zpermutujeme zbytek
     a zafixovany prvek pripojime pred kazdou permutaci zbytku}
    end else begin
        for i := 1 to length(ceho) do begin
	    zbyvaZpermutovat := ceho;
	    delete(zbyvaZpermutovat, i, 1);
 
	    novyPrefix := prefix + ceho[i];
	    vypisPermutaceStep(zbyvaZpermutovat, novyPrefix);
	end;
    end;
end;
 
var
    retezec: string;
begin
  readln(retezec);
  vypisPermutaceStep(retezec, '');
end.