VPF::Создать $tree->[2]->[1]->[3]->[0] из (2,1,3,0)

amg

Дата 25.10.2006, 14:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

Затык случился. Помогите!

Нужно создать структуру с элементом
$tree->[2]->[1]->[3]->[0]
из массива
(2,1,3,0)
содержащего соответствующие индексы
(без использования eval).

JUmPER

Дата 25.10.2006, 15:01 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


my @arr=(2,1,3,0);
my $tree=[];

my $cur=$tree;
my $num=push(@arr);

while(scalar(@arr)) {
    $cur->[$num]=[];
    $cur=$cur->[$num]
    $num=push(@arr);
    }

--------------------

Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной

GoodBoy

Дата 25.10.2006, 15:06 (ссылка)

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

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

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

JUmPER, PUSH???? А причём тут он??? Может вот так:

Код

my @arr = (2,1,3,0);
my $tree = [];

my $cur = $tree;
my $num = shift @arr;

while (@arr) {
    $cur->[$num] = [];
    $cur = $cur->[$num]
    $num = shift @arr;
}

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

amg

Дата 25.10.2006, 15:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Замечательно!
Работает.
Большое спасибо.

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