ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Fomin                          2:5015/157.2   21 Jan 2004  11:58:37
 To : All
 Subject : HELP! Деревья.....
 -------------------------------------------------------------------------------- 
 

 Приветствую ALL
 
 Помогите с линками или инфой на реализации бинарных деревьев, функции
 распределения, нормализацией, примеры реализаций, на PERLе!! (в Camelle,
 Cookbook все шо есть прочел)
 
 И меня проблема.
 В Cookbook "Ссылки и записи" 11.15 Программа: Бинарные деревья
 
 Есть фрагмент .. я немогу понять принципа.
 
 ".. Функция insert использует механизм HЕЯВHОЙ ПЕРЕДАЧИ СКАЛЯРОВ ПО ССЫЛКЕ
 ДЛЯ ИHИЦИАЛИЗАЦИИ ПУТОГО ДЕРЕВА ПРИ ВСТАВКЕ ПУТОГО УЗЛА. ПРИСВАИВАHИЕ
 $_[0] СОЗДАHHОГО УЗЛА ПРИВОДИТ К ИЗМЕHЕHИЮ ЗHАЧЕHИЯ HА ВЫЗЫВАЮЩЕЙ СТОРОHЕ.
 .."
 
 sub insert
  {
    my ($tree,$value)=@_;
    unless($tree){
      $tree={};
      $tree->{VALUE}=$value;
      $tree->{LEFT}=undef;
      $tree->{RIGHT}=undef;
      $_[0]=$tree;              !!!!!! # $_[0]-ссылочный параметр
      return;
 }
 if($tree->{VALUE}>$value){insert($tree->{LEFT},$value)}
 elsif($tree->{VALUE}<$value){insert($tree->{RIGHT},$value)}
 else{warn "dup insert of $value\n"}   # Функция распределения 
 
 }
 
 Плзз отпишите на мыло или icq: 168815113
 Прошу не пинать за ламерские вопросы .. 
 
 --- Nizhny Novgorod NNTP-HTTP Gateway
  * Origin: http://newsgate.nnov.ru (2:5015/157.2@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    HELP! Деревья.....   Maxim Fomin   21 Jan 2004 11:58:37   Re: HELP! Деревья.....   Andrew Alakozow   22 Jan 2004 11:33:38