全排列

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
123 132
213
231
312
321
function ZsList(mStr: string): string; { 全排列 }
procedure pZsList(mLeft, mRight: string);
var
I, L: Integer;
Temp: string;
begin
L := Length(mLeft);
if L = 0 then
Result := Result + mRight + #13#10
else for I := 1 to L do begin
Temp := mLeft;
Delete(Temp, I, 1);
pZsList(Temp, Concat(mRight, mLeft));
end;
end; { [ZsList<pZsList>] }
begin
Result := '';
pZsList(mStr, '');
end; { ZsList }
 
后退
顶部