Пишу на Delphi. Нужна небольшая помощь с алгоритмом, или примером кода.
Есть набор символов (для примера 5 шт, но на самом деле будет больше сотни), a,b,с,d,e. Нужно составить список всех возможных комбинаций из этих символов. Например:
- a
- b
- c
- d
- e
- ab
- ac
- ad
- ...
- abcde
- ....
Но с условием, что каждый символ должен повторяться в комбинации, только один раз. И наборы символов "ab" и "ba" считать разными комбинациями.
-----ДОПОЛНЕНО-----
procedure Generate(list, comb: TStringList; idx: integer);
var
temp : TStringList;
i, k : integer;
begin
temp := TStringList.Create;
temp.Duplicates := dupIgnore;
temp.Sorted := false;
if idx > list.Count-1 then begin
if comb.Count-1 > 0 then
Form1.Memo1.Lines.Add(comb.Text);
Exit;
end;
for k := 0 to comb.Count-1 do begin
temp.Assign(comb); // заменил строку присвоения на Assign
temp.Insert(k, list[idx]);
Generate(list, temp, idx + 1);
end;
Generate(list, comb, idx + 1);
comb.Free;
end;
больше сотни
вывод не получится, т.к. количество будет непомерное - например, для 20 символов - 6613313319248080000 вариантов.