forum.opennet.ru - "Разупорядочивание массива " (4)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"Разупорядочивание массива "

Форумы Программирование под UNIX (Public)
Вариант для распечатки		Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"Разупорядочивание массива "
Сообщение от artem (??) on 08-Ноя-05, 10:23
Добрый день! Кто-нибудь может подсказать скрипт для разупорядочивания массива, состоящего из целых чисел? Спасибо!
Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх

Оглавление

Разупорядочивание массива , madskull, 10:52 , 08-Ноя-05, (1)

Разупорядочивание массива , artem, 11:10 , 08-Ноя-05, (2)
Разупорядочивание массива , ACCA, 21:43 , 15-Ноя-05, (3)

Разупорядочивание массива , nonSmoker, 16:40 , 01-Авг-06, (4)

Сообщения по теме [Сортировка по времени, UBB]

1. "Разупорядочивание массива "

Сообщение от madskull (ok) on 08-Ноя-05, 10:52

>Добрый день! Кто-нибудь может подсказать скрипт для разупорядочивания массива, состоящего из целых
>чисел?
>Спасибо!
Хм, прикольно...

@a=qw(1 2 3 4 5 6 7 8 9 10);
print join(" ",sort {rand(100)<=>rand(100)} @a);

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

2. "Разупорядочивание массива "

Сообщение от artem (??) on 08-Ноя-05, 11:10

>Хм, прикольно...
>
>
>@a=qw(1 2 3 4 5 6 7 8 9 10);
>print join(" ",sort {rand(100)<=>rand(100)} @a);
Пасиб!

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

3. "Разупорядочивание массива "

Сообщение от ACCA (ok) on 15-Ноя-05, 21:43

man perlfaq4
>@a=qw(1 2 3 4 5 6 7 8 9 10);
>print join(" ",sort {rand(100)<=>rand(100)} @a);
Недостаточно хорошо. Нужно чуть сложнее:
           sub fisher_yates_shuffle {
               my $deck = shift;  # $deck is a reference to an array
               my $i = @$deck;
               while ($i--) {
                   my $j = int rand ($i+1);
                   @$deck[$i,$j] = @$deck[$j,$i];
               }
           }

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

4. "Разупорядочивание массива "

Сообщение от nonSmoker on 01-Авг-06, 16:40

@arr = sort{int(rand(3))-1} @arr;

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру

1. "Разупорядочивание массива "
Сообщение от madskull (ok) on 08-Ноя-05, 10:52
>Добрый день! Кто-нибудь может подсказать скрипт для разупорядочивания массива, состоящего из целых >чисел? >Спасибо! Хм, прикольно... @a=qw(1 2 3 4 5 6 7 8 9 10); print join(" ",sort {rand(100)<=>rand(100)} @a);
Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх


	2. "Разупорядочивание массива "
	Сообщение от artem (??) on 08-Ноя-05, 11:10
	>Хм, прикольно... > > >@a=qw(1 2 3 4 5 6 7 8 9 10); >print join(" ",sort {rand(100)<=>rand(100)} @a); Пасиб!
	Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх


	3. "Разупорядочивание массива "
	Сообщение от ACCA (ok) on 15-Ноя-05, 21:43
	man perlfaq4 >@a=qw(1 2 3 4 5 6 7 8 9 10); >print join(" ",sort {rand(100)<=>rand(100)} @a); Недостаточно хорошо. Нужно чуть сложнее: sub fisher_yates_shuffle { my $deck = shift; # $deck is a reference to an array my $i = @$deck; while ($i--) { my $j = int rand ($i+1); @$deck[$i,$j] = @$deck[$j,$i]; } }
	Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх


	4. "Разупорядочивание массива "
	Сообщение от nonSmoker on 01-Авг-06, 16:40
	@arr = sort{int(rand(3))-1} @arr;
	Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх

Архив \| Удалить	Индекс форумов \| Темы \| Пред. тема \| След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 \| 2 \| 3 \| 4 \| 5 ] [Рекомендовать для помещения в FAQ]