форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

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

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

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

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

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

Сообщения по теме

[Сортировка по времени, 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]