Перестановки

[Helen236]

А проще никак нельзя??? Слишком все запутано.

[Helen236]

А можно как-нибудь попроще, а то все так запутано!

[TinMan]

Сообщение от Helen236

А можно как-нибудь попроще, а то все так запутано!

Согласен, запутано..
Думаю, можно проще. Держи.
Извиняюсь перед вышевыступавшими - не стал влезать в их код, накарябал свой.. Вроде пашет. Особенно не проверял, погоняй..

procedure Permute(t,s: string);
var
  i: integer;
begin
  if s='' then
    writeln(t)
  else
    for i:=1 to Length(s) do
      if Pos(s[i],s)=i then
        Permute(t+s[i],Copy(s,1,i-1)+Copy(s,i+1,Length(s)-i))
end;

begin
  Permute('','212')
end.

Объяснить что-то, или и так все ясно? ))
Успехов тебе, Леночка236 ))

[denisbrain]

Сообщение от TinMan

Согласен, запутано..
Думаю, можно проще. Держи.
Извиняюсь перед вышевыступавшими - не стал влезать в их код, накарябал свой.. Вроде пашет. Особенно не проверял, погоняй..

procedure Permute(t,s: string);
var
  i: integer;
begin
  if s='' then
    writeln(t)
  else
    for i:=1 to Length(s) do
      if Pos(s[i],s)=i then
        Permute(t+s[i],Copy(s,1,i-1)+Copy(s,i+1,Length(s)-i))
end;



begin
  Permute('','212')
end.

Объяснить что-то, или и так все ясно? ))
Успехов тебе, Леночка236 ))

интересно. так просто )))

[Serge_Bliznykov]

TinMan, извините меня за прямоту, но это же ГЕНИАЛЬНО!
Это просто взрыв мозга. я три дня мучался, пытался что-то такое придумать (чувствовал, что должно быть решение без накопления всех результатов и проверки, была ли такая комбинация раньше), и вот он! Вот он! Код моей мечты! Краткий! Кратчайший!!!!
PERFECT!

p.s.

Сообщение от TinMan

Объяснить что-то, или и так все ясно? ))

Не знаю, как Леночке, но лично мне в чём трюк (почему повторы не попадают) пока ещё не ясно! Буду пошагово разбирать код!

p.p.s. и спасибо за доставленное удовольствие! Автор, "пиши есчё"!!

[TinMan]

Сиб, мужики! ))

Сообщение от Serge_Bliznykov

в чём трюк (почему повторы не попадают)
пока ещё не ясно! Буду пошагово разбирать код!

Дело в строке
if Pos(s[i],s)=i then
Если ее убрать - будут повторы. Она отсекает перестановки повторных вхождений символов.
А сначала я сделал с множествами. Код был чуть длиннее, но работал бы он быстрее, думаю. Функция pos, конечно, не есть хорошо с точки зрения производительности..

[Serge_Bliznykov]

Дело в строке
if Pos(s[i],s)=i then
Если ее убрать - будут повторы. Она отсекает перестановки повторных вхождений символов.

спасибо за объяснение.
то, что дело в этой строке, я уже понял, и даже как работает - вроде бы понял!
Но самостоятельно сообразить не смог бы!

[Helen236]

Так а как же быть с буквами????
AB - AB,BA

[BDA]

Helen236, запустите и посмотрите
Отлично и буквы обрабатываются.

[Helen236]

Сообщение от BDA

Helen236, запустите и посмотрите
Отлично и буквы обрабатываются.

Только если 212 заменить на AB. Или я что-то не понимаю