![]() |
|
Модераторы: korob2001, ginnie |
![]()
|
|
| Suppir |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 588 Регистрация: 20.4.2009 Репутация: нет Всего: нет |
Добрый день!
Помогите с решением следующей задачки. Имеем массив строк: ааа = 1 ааа = 1 ааа = 2 ааа = 1 ааа = 1 ббб = 7 ббб = 7 ббб = 1 ббб = 7 Как видите, строке "ааа" обычно соответствует символ "1", а строке "ббб" обычно соответствует символ "7". Необходимо для каждой строки (ааа и ббб) найти нетипичные значения. Т.е. необходимо обнаружить пары "ааа = 2" и "ббб = 1". Предполагаю, что необходимо построить хеш массивов: ключ "ааа", которому соответствует массив значений: 1, 1, 2, 1, 1, ключ "ббб", которому соответствует массив значений: 7, 7, 1, 7 А потом перебрать массив значений для каждого ключа и найти нетипичные. Только реализовать это чудо никак не получается :( |
|||
|
||||
| arto |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
while (<>) {
chomp; my ($k,$v) = split "\\s*=\\s*"; push @{ $hash{$k} },$v; } |
|||
|
||||
| Suppir |
|
|||
|
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 588 Регистрация: 20.4.2009 Репутация: нет Всего: нет |
arto, ты в них разбираешься? А как потом найти в этой структуре нетипичные значения?
|
|||
|
||||
| dva300 |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 220 Регистрация: 17.2.2010 Где: Москва Репутация: -1 Всего: 1 |
задача примитивная. включай мозГ по итогам операций выше получишь N массивов в которых тебе просто надо посчитать одинаковые елементы и вывести в порядке убывания. --------------------
Участник движения Культура Вождения |
|||
|
||||
| arto |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
посчитайте частоты
|
|||
|
||||
![]()
|
| Правила форума "Perl" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |