VPF::Сравнение двумерного массива с шаблоном

Error202

Дата 18.10.2010, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Здравствуйте!

Есть один массив

Код


@matrix=(
 [3,3,3,3,3,3,3]
 [3,3,3,9,3,7,3]
 [3,3,3,3,3,3,3]
 [3,3,3,4,3,3,3]
 [3,3,3,3,3,3,3]
 [3,3,3,3,3,3,3]
 [3,3,3,3,3,3,3]
);

Есть другой массив

Код


@tpl=(
 [?,?,?,?,?,?,?]
 [?,?,?,9,?,?,?]
 [?,?,?,?,?,?,?]
 [?,?,?,4,?,?,?]
 [?,?,?,?,?,?,?]
 [?,?,?,?,?,?,?]
 [?,?,?,?,?,?,?]
);

Как можно грамотнее сделать проврку массива @matrix по шаблону @tpl?
т.е. подходит tpl к matrix или нет...

B если совпадения нет, то повернуть tpl на 90 градусов... и все повторить... (получится 4-е проверки)...

arto

Дата 18.10.2010, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

примерно так:
# perl -MList::Util=sum -MList::MoreUtils=pairwise -le '@a = split ",",$ARGV[0]; @b = split ",",$ARGV[1]; print sum (pairwise { $a eq "?" || $b eq "?" ? 0 : $a-$b } @a, @b) ? "NO" : "YES" ' "1,2,3,4,5" "?,?,3,?,?"
YES
#

повторить для каждой строки, не забыть о размерностях.

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