Как мне перемешать последовательность (больше 256)

← →
Norm Iridium © (2006-01-19 20:59) [0]

Как мне перемешать последовательность чисел, неповторяющихся, количество которых не ограничевается 256 элементами

← →
Ell (2006-01-19 21:02) [1]

А при чём тут ограничение 256?

← →
Ell (2006-01-19 21:07) [2]

Тип переменной, определяющей количество, задай не byte, а, например, word, тогда будет до 65536.

← →
Norm Iridium © (2006-01-20 20:06) [3]

И в чем же тогда это все хранить?

← →
Vemer © (2006-01-20 21:41) [4]

Кто как умет. Например я все храню в базе данных.

← →
SergP © (2006-01-20 21:57) [5]

Наверное что-то типа:
for i:=high(myarray) dowmto 0 do begin a:=random(i); b:=myarray[a]; mmyarray[a]:=myarray[i]; myarray[i]:=b; end;

только причем здесь 256 - не пойму...

← →
Norm Iridium © (2006-01-23 18:11) [6]

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

> А сколько влезет в массив элементов?

Теоретически -- два гигабайта.
Практически -- сотня-другая мегабайт.

А сколько надо?

~150 000 элементов. Это около 600 килобайт... Значит влезет ;-)

А если более шустрый алгоритм?

Как мне перемешать последовательность (больше 256) Найти похожие ветки