Случайное перемешивание нескольких объектов

Дата: Вторник, 02 Января 2007, 13:22 | Сообщение # 1

Группа: Удаленные

В ММВ существует функция RND для случайного выбора из некоторого числа значений.
Но этот рэндом работает только для одной переменной. А предположим, имеется
необходимость случайно перемешать некоторое число N переменных - это могут быть,
например, N различных чисел, слов, картинок и т.д. Как их перемешать?

В комбинаторике (раздел математики) такая комбинация называется перестановкой.

Поясню примером возможного использования такой необходимости: например, нужно
будет случайным образом раскидать десяток игральных карт, фишек в игре,
переставить случайным образом буквы в слове (анаграмма) и т.д.

Предвижу такое решение проблемы - использовать функцию рандомизации списка
ListBoxSortItems("SongList","RANDOMIZE"), предварительно загрузив в него значения
переменных или имена объектов.

Но хочется увидеть решение в виде сценария. Без использования списка.
Есть варианты?

Дата: Вторник, 02 Января 2007, 16:44 | Сообщение # 2

Группа: Удаленные

Кстати, решение со списком, на мой взгляд, самое лучшее и простое. Альтернатива - создание массива строковых переменных и что-то, наподобие сортировки, только наоборот. Короче, головняк. Я пару раз использовал список, и не жаловался.

Дата: Вторник, 02 Января 2007, 20:24 | Сообщение # 3

MMB Club

Группа: Проверенные

Сообщений: 7

Репутация: 0

Награды: 0

Статус: Offline

Всех с новым годом!

Code

** Error Внимание, чем больше значение "amount", тем дольше программа будет генерировать порядок значений!
** Error Задаем тридцать последовательных значений
amount=30
For i=1 To amount
   items$[i]=CHAR(i)
   old_items$=old_items$+' - '+items$[i]
Next i
** Error Начинаем генерировать порядок
For i=1 To Infinity
   rnd=RND(amount-1)+1
   For a=1 To pos
     If (repeat[a]=rnd) Then
       Rep=TRUE
     Break()
End
   Next a
   If (Rep=FALSE) Then
     pos=pos+1
     repeat[pos]=rnd
     generate$[pos]=items$[rnd]
   Else
     Rep=FALSE

End
   If (pos=amount) Then
     Break()
   End
Next i
** Error ...
For i=1 To amount
   gen_items$=gen_items$+' - '+generate$[i]
Next i
chr$=CHR(13)+CHR(10)
mess1$='Первоначальное положение значений:'+chr$+old_items$
mess2$=chr$+chr$+'Полученное положение значений:'+chr$+gen_items$
message$=mess1$+mess2$
Message("message$","")

Сообщение отредактировал Fanat - Четверг, 04 Января 2007, 13:39

Дата: Среда, 03 Января 2007, 13:01 | Сообщение # 4

Группа: Удаленные

Fanat, позволь дать пару советов. Во-первых, известно, что ММВ сильно тормозит выполнение циклов. Тем более это заметно, когда циклы вложены один в другой. Если есть возможность, лучше обходиться без вложенных циклов. Это раз.
Второе. Когда используешь RND(), ты пишешь следом if rnd=0... Это связано с тем, что генератор выдаёт значения в пределах, указанных числом в скобках, включая ноль. Ты делаешь проверку на ноль, но лучше писать не rnd=RND(amount), а rnd=RND(amount-1)+1, тогда rnd никогда не будет содержать ноль.
В любом случае, вариант с ListBox единственный быстрый и простой вариант.

Victor

Дата: Среда, 03 Января 2007, 17:13 | Сообщение # 5

MMB Club

Группа: Проверенные

Сообщений: 15

Репутация: 1

Награды: 0

Статус: Offline

Я вот придумал другой способ:

Code

cl$=''
LoadText("EditBox","cl$")
**Заносим значения в переменные
For t=1 To 20
   v[t]=t
Next t
**Чем больше число 500 тем лучше перестановка, но уходит больше времени
For n=1 To 500
   **Генерируем 2 случайных числа от 1 до 20
   x=RND(19)+1
   y=RND(19)+1
   **Это нужно чтобы цифры не повторялись
   If (x=y) Then
     If (x=20) Then
       x=x-1
     Else
       x=x+1
     End
   End
   **Меняем местами значения
   vo[x]=v[x]
   v[x]=v[y]
   v[y]=vo[x]
Next n
**Выводим результат в EditBox
For r=1 To 20
   rez$=EditBox$+'-'+CHAR(v[r])
   LoadText("EditBox","rez$")
Next r

Дата: Четверг, 04 Января 2007, 11:18 | Сообщение # 6

Группа: Удаленные

Quote (Victor)

Я вот придумал другой способ:

Занятный способ. Молодец!
И вообще - наконец-то вижу, что члены клуба ММВ работают smile

Жаль вот только, что в конкурсе участие не принимаете...

Вечная память Андрею Сергееву!

Дата: Четверг, 04 Января 2007, 13:34 | Сообщение # 7

MMB Club

Группа: Проверенные

Сообщений: 7

Репутация: 0

Награды: 0

Статус: Offline

Quote

ММВ сильно тормозит выполнение циклов. Тем более это заметно, когда циклы вложены один в другой

Слушай друг, у меня скрипт работает нормально, не тормозит...если ты про то, что он долго генерирует порядок, то так и должно быть, потому что порядок для каждого числа генерируется от одного числа (30), интервал сократить нет возможности. То есть, он может сгенерировать 29 чисел(их порядок) и долго генерировать 30, пока число 30 не попадет из 30..., вот так. Среди выше описанных примеров генерации, этот скрипт будет самый продуктивным, он сможет дать самую большую разбросанность значений! Тем более, скрипт всегда можно переделать, а это все волиш показательный пример.

Quote

лучше писать не rnd=RND(amount), а rnd=RND(amount-1)+1

Исправляю, с некоторыми доработками, теперь скрипт будет работать немного быстрее...

Quote

В любом случае, вариант с ListBox единственный быстрый и простой вариант

Если бы передомной стояла такая задача, я стал бы использовать скрипт, а не ListBox.

YURIY

Дата: Четверг, 04 Января 2007, 13:55 | Сообщение # 8

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Парни, без эмоций! Если мы друг другу советы никогда давать не будем, то накой таким всем умным форум нужен?

Дата: Четверг, 04 Января 2007, 16:53 | Сообщение # 9

Группа: Удаленные

Присоединяюсь к Юрию.

Quote (Fanat)

Если бы передо мной стояла такая задача, я стал бы использовать скрипт, а не ListBox

И всё же, список использовать разумнее.
Но в данном случае задача стояла действительно обойтись без списка.

Дата: Пятница, 05 Января 2007, 21:49 | Сообщение # 10

Группа: Удаленные

Ну раз базар зашёл... Не считайте меня лохом. Вот:

Code

arrayLen=500
For i=1 To arrayLen
   sourceStr$[i]=CHAR(i)
Next i
**
For i=1 To arrayLen
   r=RND(arrayLen-1)+1
   a$=sourceStr$[i]
   b$=sourceStr$[r]
   sourceStr$[i]=b$
   sourceStr$[r]=a$
Next i
**
str$=''
For i=1 To arrayLen
   str$=str$+'|'+sourceStr$[i]
Next i
Message("","str$")

Добавлено (05 Января 2007, 21:49)
---------------------------------------------
А генерить случайное число, а затем проверять, есть ли оно в списке - бред.
Во-первых, чем дальше в лес, тем больше дров. Как оказалось, RND() с каждым разом даёт всё больше повторяющихся значений. Не верите, проверьте сами на массиве большой длины. Уж не знаю, к чему разработчики привязали генератор, но не исключено, что в один момент он совсем перестанет генерировать случайные значения, а будет давать одни и те же.
Во-вторых, вложенные циклы, я уже говорил. А в моём скрипте их всего три, да и то два из них по большому счёту не нужны, один заполняет массив, другой готовит строку для показа в мессаге.

Дата: Пятница, 05 Января 2007, 23:59 | Сообщение # 11

MMB Club

Группа: Проверенные

Сообщений: 7

Репутация: 0

Награды: 0

Статус: Offline

Quote

А генерить случайное число, а затем проверять, есть ли оно в списке - бред.

Слушай умник, где же ты раньше тогда был, мы только слышали:

Quote

Альтернатива - создание массива строковых переменных и что-то, наподобие сортировки, только наоборот. Короче, головняк.

И ты потом говоришь, что лучше использовать список? Да ты сам безумно рад, что написал этот скрипт, и он куда лучше чем использование списка, разве не так?

Quote

Ну раз базар зашёл... Не считайте меня лохом

Заметь, ты сам себя определил.

Сообщение отредактировал Fanat - Суббота, 06 Января 2007, 00:05

Дата: Суббота, 06 Января 2007, 01:32 | Сообщение # 12

Группа: Удаленные

Quote (Fanat)

Слушай умник

Предупреждаю тебя и остальных:
переход на личности на форуме НЕДОПУСТИМ!
На первый раз тебе - замечание. На второй будет бан.

Quote (toizy)

Как оказалось, RND() с каждым разом даёт всё больше повторяющихся значений.
Не верите, проверьте сами на массиве большой длины. Уж не знаю, к чему разработчики
привязали генератор

Кстати, это совсем не праздный вопрос.
Я давно заметил, что рэндом работает некорректно - одни цифры выдает чаще,
другие почти никогда. Еще когда делал интеллект-тест (у меня там более 500 вопросов
было), заметил, что некоторые вопросы, которые я занес в базу, НИКОГДА не выбираются!!!
Другие же, наоборот, вылетают слишком часто.

Предлагаю открыть отдельную тему, где это обсудить. Что я и делаю.

Итак, функцию RND(), гадину такую, обсуждаем здесь

Сообщение отредактировал as-master - Суббота, 06 Января 2007, 01:36

Дата: Суббота, 06 Января 2007, 11:39 | Сообщение # 13

Группа: Удаленные

Galkov, абсолютно верно насчёт перестановки. Также необходимо учитывать, что последний элемент массива всегда будет иметь номер не больше, чем i.
Что до случайности генератора, то в ММВ здесь действительно проблемы...

Quote (Peter)

Не очень понял: бред ВООБЩЕ или в данном конкретном случае?

В данном случае. Дело в том, что, учитывая специфику генератора ММВ это действительно бред :). Обычно генератор привязывают к системному времени, т.е. после инициализации он генерирует так называемую псевдослучайную последовательность. В ММВ же генератор с каждым новым шагом почему-то даёт всё больше повторяющихся значений. У меня был случай, когда через пару сот генераций он дал пару десятков одного значения подряд. Разве это дело?
С NeoBook может быть по-другому, я не знаю, наверное, куда лучше.

Добавлено (06 Января 2007, 11:39)
---------------------------------------------
Fanat, ты не обижайся на меня. Я люблю поспорить и могу сказать что-то, что тебе не понравится. Хотя я по делу сказал, признайся smile

Quote (Fanat)

Я вовсе не рад. Не думай, что меня осенило, этот скрипт - типичный пример перестановки. Он не лишён недостатков, однако самый быстрый из всех, учитывая то, что использоваться будет лишь один цикл из трёх, значит скорость перемешивания возрастёт втрое. Это - каркас, который вы сами облепите, чем хотите. А список действительно лучше использовать, быстрее. Всё из-за манеры ММВ тормозить циклы.

Quote (Fanat)

Заметь, ты сам себя определил.

Ай, некрасиво, блин! Но я не обижаюсь smile

Дата: Суббота, 06 Января 2007, 14:13 | Сообщение # 14

Группа: Удаленные

Мне понравились все варианты, предложенные здесь.
Но больше всего - вариант toizy.

Главное - это то, что все умеют нетрадиционно мыслить.
А значит - не зря мы члены клуба ММВ :)

Насчет рэндома - запостил пример в теме О функции RND()

Сообщение отредактировал as-master - Суббота, 06 Января 2007, 14:14

Дата: Вторник, 09 Января 2007, 19:55 | Сообщение # 15

MMB Club

Группа: Проверенные

Сообщений: 7

Репутация: 0

Награды: 0

Статус: Offline

Quote

Ай, некрасиво, блин! Но я не обижаюсь

Извени, действительно некрасиво поступил.