Смешать рандомно символы в строке

[0xyg3n]

Здравствуйте всем.
Есть строка string, размер ранее не известен.
Нужно перемешать все символы в строке. Чтоб порядок символов изменился. Например строка "abc123" стала "a2b1c3". В общем что-то в этом роде.
Задача, казалось бы не трудная, но реализация ее у меня заняла некоторое время. Код получился громоздкий и не очень быстрый, да еще и через костыли. Приводить его здесь просто стыдно.
Может быть натолкнете, или у кого есть похожий пример или готовое решения, буду очень признателен за помощь.

[ViktorR]

Вот тут есть алгоритмы перетасовки
https://ru.wikipedia.org/wiki/%D0%A2...82%D1%81%D0%B0
Пример на Паскале (у меня FPC)

uses crt;   {это исключительно для тестирования}
function FisherCycle(var s: string): string; {первый алгоритм из ссылки}
var i, j, n: word;
         ch: char;
begin
   n := Length(s);
   for i := n - 1 downto 1 do
   begin
      j := random(i + 1) + 1;
      ch := s[j];
      s[j] := s[i];
      s[i] := ch;
   end;
   FisherCycle := s;
end;

function SattoloCycle(var s: string): string; {другой алгоритм из ссылки}
var i, j, n: word;
         ch: char;
begin
   i := Length(s);
   while i > 1 do
   begin
      i := i - 1;
      j := random(i + 1) + 1;
      ch := s[j];
      s[j] := s[i];
      s[i] := ch;
   end;
   SattoloCycle := s;
end;

var s, s1, s2: string;
begin
   randomize;
   writeln('Input text with chars <= 255): ');
   readln(s);
   Repeat {этот цикл завершается по нажатию любой клавиши}
      s1 := s;
      s2 := s;
      writeln('NewF: ', FisherCycle(s1));
      writeln('NewS: ', SattoloCycle(s2));
   Until KeyPressed;
   readln;
end.

Заметил, что последний символ редко участвует в перемешивании.
Но это вроде как проблема генератора случайных чисел.

[Serge_Bliznykov]

я предложил бы такой код:
https://www.programmersforum.ru/show...8&postcount=13

var
 s : string;
 i,k, N:integer;
 buf : char;
begin
 Randomize; 
 
 s := 'abc123';

 //----------перемешать-------------
 N := Length(s);
 for i:=1 to N-1 do
  begin
   k:= Random(N-i+1)+i;
   if k<>i then begin
     buf:=s[i];
     s[i]:=s[k];
     s[k]:=buf;
   end;
  end;
 
 WriteLn(s);

end.

[Вадим Мошев]

И от меня пример: https://www.programmersforum.ru/show...060#post960060

Строка — это массив символов.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

И от меня пример

Вадим, только хочу предостеречь - https://www.programmersforum.ru/show...27&postcount=4
ссылка "Как не надо тасовать карты"
суть - простое перемешивание не даёт нормальное распределение

[Вадим Мошев]

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

простое перемешивание не даёт нормальное распределение

Может, я что-то не понимаю, но, может нормальное распределение не нужно при перемешивании? Я думаю, что для перемешивания нужно равномерное распределение, чтобы вероятность появления какого-то элемента на каком-то месте была везде одинакова?

Вообще, когда я писал тот код, я не задумывался о распределении. Просто был нужен случайный порядок.

Или вы опечатались и хотели сказать "равномерное" распределение? По ссылке вы о нём и говорите.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Или вы опечатались и хотели сказать "равномерное" распределение? По ссылке вы о нём и говорите.

точно так.

Вторая проблема: плохое распределение раздач

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

Сообщение от Вадим Мошев

Вообще, когда я писал тот код, я не задумывался о распределении. Просто был нужен случайный порядок.

Воля ваша. Можно использовать любой алгоритм.
Ну, зачем делать плохо, если можно сделать хорошо?
И, в любом случае, нужно знать, что за алгоритм используешь и какие он имеет особенности.

[canadamoscow]

На PascalABC.NET это так:

begin
  //var s := ReadlnString;
  var s := '1234567890asdfzxcvqwer';
  Writeln(1,'-й вариант: ',s.ToCharArray.Shuffle.JoinToString);
  loop s.Length do swap(s[Random(1,s.Length)],s[Random(1,s.Length)]);
  Writeln(2,'-й вариант: ',s);
end.