Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

Перемешать массив   Найти похожие ветки 

 
Vladislav   (2002-07-25 12:12) [0]

Как быстрее всего перемешать массив?


 
RV   (2002-07-25 12:30) [1]

смотря какой массив
смотря что понимать под перемешанным/неперемешанным массивом


 
Viewer   (2002-07-25 12:39) [2]

Для перемешиванния в случайном порядке использовать случайный подход.
Случайно выбирать i,j из диапазона и обменивать значения.

Для "неслучайного" подхода взять два близких простых числа A,B и с их шагом циклически пробежаться несколько раз по массиву обменивая ячейки с индексами кратными этим числам.


 
eSKey   (2002-07-25 12:44) [3]

А поиском по форуму воспользоваться трудно? Эта тема уже не первый раз обсуждается и имеет простейшее решение.


 
RV   (2002-07-25 13:05) [4]

массив исходный (неперемешанный?)
a[1]=1
a[2]=2
..
a[n]=n

массив ( перемешанный?)
a[1]=n
a[2]=2
..
a[n]=1

с какого момента массив считается перемешанным?
-----
один волос - не борода
2 - не борода
3 - не борода
...
100000 - борода

сколько волос уже борода?


 
Vladislav   (2002-07-25 13:14) [5]

for i := 1 to High( Numbers ) do Numbers[ i ] := i;
for i := High( Numbers ) downto 1 do begin
R := Random( i );
S := Numbers[R];
Numbers[R] := Numbers[i];
Numbers[i] := S;
end;


 
RV   (2002-07-25 13:22) [6]

можно до половины цикл сделать
брать рандомом елемент и менять с соответствующим из второй половины



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.01 c
3-23964
maxim2
2002-07-19 12:42
2002.08.08
Копирование из SQL запроса в таблицу


3-23957
werewolfDS
2002-07-18 11:51
2002.08.08
Бухгалтерские проводки


7-24250
Krok
2002-05-22 17:09
2002.08.08
Реальное место на диске


1-24053
DjecII
2002-07-25 12:38
2002.08.08
Вопрос про компоненты


1-24006
Faun
2002-07-28 07:09
2002.08.08
CreateParented и скроллинг





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский