![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
DooZ |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 206 Регистрация: 25.11.2005 Репутация: нет Всего: 1 |
Здравствуйте
не могу сообразить как сделать, описываю задачу есть 4 хеша (четыре это условно, на самом деле хешей больше) данных (можно массивы, не столь важно) в каждом хеше есть список данных: хеш1: x1 x2 хеш2 z1 z2 хеш3 a1 a2 хеш4 b1 b2 задача перемешать данные из хешей, а именно получить варианты данные из хеша1 и хеша2: x1 z1 x1 z2 x2 z1 x2 z2 далее данные из хеша 1 и хеша 3 x1 a1 x1 a2 x2 a1 x2 a2 далее данные из хеша 1 и хеша 4 x1 b1 x1 b2 x2 b1 x2 b2 далее данные хеша 2 и хеша 3 далее данные хеша 2 и хеша 4 и т .д. потом идут данные хеша 1 хеша 2 хеща 3 и т.д. т.е. надо перемешать все возможные связки... надеюсь понятно объяснил? вообщем не соображу как это все написать =) заране спасибо за помощь |
|||
|
||||
dmitryk1 |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 118 Регистрация: 10.6.2008 Где: Новосибирск Репутация: 2 Всего: 2 |
Ну у тебя хэши тоже в какой-то структуре, вот и делай два цикла.
хэши(); for (i=1) { for (j=i+1) { перемешать(хэши(i),хэши(j)); } } и отдельной процедуркой перемешивай. Или внутри цикла прямо, третьим и четвёртым циклом. Давно не кодил, так что код - это нечто, просто продемонстрировать. |
|||
|
||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
# perl -MList::Permutor -le '$p = new List::Permutor (@ARGV); while (my @a = $p->next) { print "@a"; }' 1 2 3
1 2 3 1 3 2 2 1 3 2 3 1 3 1 2 3 2 1 # |
|||
|
||||
DooZ |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 206 Регистрация: 25.11.2005 Репутация: нет Всего: 1 |
спасибо за ответы, но немного не ясвно, а варианты 1 2 1 3 2 3 1 2 3 ? |
|||
|
||||
DooZ |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 206 Регистрация: 25.11.2005 Репутация: нет Всего: 1 |
не то...
Это сообщение отредактировал(а) DooZ - 28.12.2010, 23:06 |
|||
|
||||
DooZ |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 206 Регистрация: 25.11.2005 Репутация: нет Всего: 1 |
не актуально...
вопрос решен Это сообщение отредактировал(а) DooZ - 29.12.2010, 01:43 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |