Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Доступ и сортировка массивов в хеше. Доступ и сортировка массивов в хеше. 
:(
    Опции темы
Jeka from Doneck
Дата 15.1.2009, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 15.9.2007

Репутация: нет
Всего: нет



Помогите решить задачу. 

Дана ссылка на хеш массивов, элементы которых являются числа. Выдать на печать элементы хеша, отсортированные по возрастанию 3-го элемента массива.

Тоесть есть следующая структура

хеш - массив.

[a] -> [1,3,2,7,3,4]
[b] -> [2,6,68,8,4,2,1]
[c] -> [1,5,1,3,7,8]
[d] -> [....]
[e] -> [....]
[f] -> [...]
[g] -> [...]

Вывести на печать элементы хеша в отсортированном виде. по 3 эдементу массива.

PM MAIL   Вверх
sir_nuf_nuf
Дата 15.1.2009, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31



попробуй ка так  smile 
Код

print map {"[$_->[0]] -> @{$_->[1]}\n"}
      sort {$a->[1]->[2] <=> $b->[1]->[2] }
      map {[$_, $hash{$_}]}
      keys  %hash;


Это сообщение отредактировал(а) sir_nuf_nuf - 15.1.2009, 11:11


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
amg
Дата 15.1.2009, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50



sir_nuf_nufmap вроде и незачем?
Код
print sort {$hash{$a}[2]<=>$hash{$b}[2]} keys %hash;

PM MAIL   Вверх
ginnie
Дата 15.1.2009, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49



amg, разве Ваш вариант позволяет

Цитата

Вывести на печать элементы хеша в отсортированном виде. по 3 эдементу массива.


?

Добавлено через 9 минут и 16 секунд
может так
Код

print map {"[$_] -> [".join(',', @{$hash{$_}})."]$/"} sort {$hash{$a}[2]<=>$hash{$b}[2]} keys %hash;



--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
amg
Дата 15.1.2009, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50



Цитата(ginnie @  15.1.2009,  12:28 Найти цитируемый пост)
amg, разве Ваш вариант позволяет...
Да, недоглядел я.
Можно и как у Вас или, что то же самое
Код
foreach (sort {$hash{$a}[2]<=>$hash{$b}[2]} keys %hash) {
  print "[$_] -> [".join(',',@{$hash{$_}})."]\n";
}
Но в любом случае, предложение от sir_nuf_nuf, которое мне сначала (по невнимательности) показалось неудачным, таковым не является.

PM MAIL   Вверх
tolkien
Дата 15.1.2009, 23:35 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4



Бедный студент врядли разберет ваши одно строчные решения. Наверное и его профессор не сможет.
PM MAIL   Вверх
sir_nuf_nuf
Дата 16.1.2009, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31



не путать однострочные решения с perl-style =)
если уж понадобилось на perl - тогда пусть разбирает. Иначе какой смысл на нем писать ?


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
ginnie
Дата 16.1.2009, 12:23 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49



tolkien, а пусть студент спросит, что непонятно. 
amg, кстати, вполне понятный вариант написал.


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0817 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.