The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Рекурсивный вызов"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Рекурсивный вызов" 
Сообщение от retif Искать по авторуВ закладки(ok) on 01-Июн-05, 19:02  (MSK)
Привет All
Подскажите плиз какие варианты рекурсивого вызова сабы кроме как по ссылке и через caller
  Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Рекурсивный вызов" 
Сообщение от PoizOn emailИскать по авторуВ закладки(ok) on 02-Июн-05, 09:50  (MSK)
>Привет All
>Подскажите плиз какие варианты рекурсивого вызова сабы кроме как по ссылке и
>через caller

$i=10;

    $i=getAndPrint($i);
    
    print $i,"\n";

sub getAndPrint {
    my $i=shift;
    $i=$i-1;
    print $i,"\n";
    getAndPrint($i) if($i);
    }

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Рекурсивный вызов" 
Сообщение от retif Искать по авторуВ закладки(ok) on 02-Июн-05, 11:16  (MSK)
>$i=10;
>
>    $i=getAndPrint($i);
>
>    print $i,"\n";
>
>sub getAndPrint {
>    my $i=shift;
>    $i=$i-1;
>    print $i,"\n";
>    getAndPrint($i) if($i);
>    }

Увы не подходит - нужно сделать рекурсию без использования имени

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх


Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру