ac1002.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 22 行

program tju1002;
var
  s,h:string;
procedure perm(s:string);
  var
    i:byte;
  begin
    if length(s)=1 then begin
      writeln(h,s);
      exit;
    end;
    for i:=1 to length(s) do begin
      h:=h+s[i]+' ';
      perm(copy(s,1,i-1)+copy(s,i+1,length(s)-i));
      delete(h,length(h)-1,2);
    end;
  end;
begin
  readln(s);
  perm(s);
end.