Хочется посмотреть на пример рекурсии на встроенном языке 1с, только какой-нибудь реально используемый.

http://infostart.ru/projects/2840/

А что не получается?

Рекурсия - зло:)

Обработка СтруктураПодчиненности, например

А чем рекурсия на языке 1С отличается от бычной рекурсии?

(3) Рекурсия - божестввенна (с)

(2)Нет просто интересно, а в типовых ее нет.

(7) а как же (4)?

(7) Есть. Например в ТиС это обработка ДеревоДокументов...

(7) В ПУБе тоже есть при расчете затрат

(3) ПОчему зло?
(5) Нет, ну в том смысле как это реализуется именно с использованием языка самого.
(8) Беру свои слова назад

(3) ЕСли руки кривые, то и вызов оператор присваивания - зло...

(7) в отчетах бывает, например для обработки неопределенного уровня результата запроса

(11) А какая разница, на каком языке?

(13) Ага, практически в любом типовом отчете... ПечатьСтроки() вроде, рекурсивно вызывается...

Спасибо, буду смотреть...
А в каких случаях ее вообще стоит применять?

Ухты сколько любителей рекурсии.
Агрессивных и пряморуких

(16) для обхода дерева

(16) когда количестви итерраций ограничено разумными пределами, но заранее не извесно

а вообще - для расчета факториала и числа фибоначчи, это в любом учебнике написано!

(19) Ясно спасибо!

(16) именно как в (19) Иначе при порядка 10 тыс вызовов 1ска свалится почти наверняка. Проходил.

(18) а для зацикленого дерева?

это самые распространенные грабли, по этому пользоваться нужно с осторожностью

(23) Зацикленное дерево - это не дерево :-)

(23) а ты не цикли дерево :)
у меня считается "задача про рюкзак" применительно к складским ячейкам через рекурсию

(24)"куст - это совокупность веток и листьев, торчащих из одного места"©армия

(22) Присоединяйся к клубу криворуких:)

(24) например анализ стека выполнения макроса VB, вроде раскладываеться в дерево, ан далеко не всегда... у меня специальный анализаитор для подстановки шаблонов сделан, для определения зацикливания рекурсии.

(24) +1
это граф...

(27) Йа давно его президент

(28) как ты стек вызовов умудрился зациклить? Или тебе тоже в клуб? :-))

Пипец в типовых нет. Ага.
В каждом отчете.

(32) тссс... народ просто ни разу не видел ВывестиГруппировку
:)

(31) легко.... а в клубе я уже был - выгнали за криворукость :)

решение задачи рюкзака - обсуждалосб здесь активно...

(0)
отчеты в Бюджетке 7-ке...
например ОСВ по счету !!!

В ТиС вывод группировок почти в каждом отчете

Рекурсия смертельна для тех, кто любит глобальные переменные использовать.

(38)
пример можно...

Функция ЕстьРодитель(Элемент,_Родитель)
   
   Рез = 0;
   лРодитель = Элемент.Родитель;
   Пока (ПустоеЗначение(лРодитель) = 0)и(Рез=0) Цикл
       Рез = ?(лРодитель = _Родитель,1,0);
       лРодитель = лРодитель.Родитель;
   КонецЦикла;
   
   Возврат Рез;
КонецФункции

(40) и где тут по-твоему рекурсия?

(41) тфу
ну вот тебе из ТиС:
//******************************************************************************
// ВывестиГруппировку(Запрос,Ном)
//
// Параметры:
//  Запрос - объект "Запрос"
//    Ном - номер выводимой группировки
//
// Возвращаемое значение:
//  Нет
//
// Вызывается из формул элементов диалога:
//
// Описание:
//  Выводит в печатную форму одну группировку запроса. Если
//    Есть нижележащие группировки, они выводятся также с использованием рекурсивного
//    вызова этой же процедуры.
//
Процедура ВывестиГруппировку(Запрос,Ном)
     
////ненужное убрано
       
           // если есть более детальная группировка - выведем ее
           Если КоличествоГруппировок > Ном Тогда    
               ВывестиГруппировку(Запрос,Ном+1);
           КонецЕсли;

КонецПроцедуры // ВывестиГруппировку()

(42) - только не горячись! спокойно!.. :)

(42) просил пример для поста (38), т.е. глобальные переменными

(0) Видимо самое простое это получение полного наименование чего либо (со всеми вышестоящими группами).

Функция ПолноеИмя(Элемент, Имя = "")
   СоставноеИмя = СокрЛП(Элемент) + "\" + Имя;
   Если ПустоеЗначение(Элемент.Родитель) = 1 Тогда
     Возврат СоставноеИмя;
   Иначе
     Возврат ПолноеИмя(Элемент.Родитель, СоставноеИмя );
   КонецЕсли;
КонецФункции

(45)
ПолноеНаименование()
Синтаксис:
ПолноеНаименование()
Назначение:
Возвращает строку, содержащую полное наименование выбранного элемента справочника со всеми вышестоящими уровнями, разделенными символом /.

Для выборки с заранее неизвестным количество субконто используется часто

(46) Это элементарный пример, возможно будет нужен, если к примеру в именах групп встречаются знаки /, можно заменить на свой разделитель.
Я подобное использовал при обмене - раскручивал иерархию справочников для сохранения всего дерева.

так а где пример рекурсии с глобальными переменными!

???

(49) по определению рекурсии - глобальные переменные там нафиг не нужны, они могут использоваться, но на сам факт выполнения рекурсии никоим образом не влияют...

(49) если голбальные переменные использовать в внутри рекурсии и менять их... или еще  что-нибудь через них замутить...
но это пример криворукой рекурсии

Процедура Изменить()
   перем сумма;
   Если ТЗ.ТекущаяКолонка()="БИК" Тогда  
       сумма=ТЗ.БИК;
       Если ВвестиСтроку(Сумма,"Введите БИК", 9,0,0)=1 Тогда
           Если СтрДлина(Сумма)<9 ТОгда
               Предупреждение("Количество знаков должно быть 9");
               Изменить();
               СтатусВозврата(0);
               Возврат;
           КонецЕсли;
           ТЗ.УстановитьЗначение(ТЗ.ТекущаяСтрока(),ТЗ.ТекущаяКолонка(),Сумма);
           СделалиИзменения=1;
       КонецЕсли;
   ИначеЕсли ТЗ.ТекущаяКолонка()="КодУчастника" Тогда
       сумма=ТЗ.КодУчастника;
       Если ВвестиСтроку(Сумма,"Введите Код участника", 10,0,0)=1 ТОгда
           Если СтрДлина(Сумма)<10 ТОгда
               Предупреждение("Количество знаков должно быть 10");
               Изменить();
               СтатусВозврата(0);
               Возврат;
           КонецЕсли;
           ТЗ.УстановитьЗначение(ТЗ.ТекущаяСтрока(),ТЗ.ТекущаяКолонка(),Сумма);
           СделалиИзменения=1;
       КонецЕсли;  
   ИначеЕсли ТЗ.ТекущаяКолонка()="НомерСчета" Тогда
       сумма=ТЗ.НомерСчета;
       Если ВвестиСтроку(Сумма,"Введите номер счета", 20,0,0)=1 ТОгда
           Если СтрДлина(Сумма)<20 ТОгда
               Предупреждение("Количество знаков должно быть 20");
               Изменить();
               СтатусВозврата(0);
               Возврат;
           КонецЕсли;
           ТЗ.УстановитьЗначение(ТЗ.ТекущаяСтрока(),ТЗ.ТекущаяКолонка(),Сумма);
           СделалиИзменения=1;
       КонецЕсли;  
   ИначеЕсли ТЗ.ТекущаяКолонка()="ВидПлатежа" Тогда
       сумма=ТЗ.ВидПлатежа;
       Если ВвестиСтроку(Сумма,"Введите вид платежа (TELEPOST)", 2,0,0)=1 ТОгда
           Если СтрДлина(Сумма)<2 ТОгда
               Предупреждение("Количество знаков должно быть 2");
               Изменить();
               СтатусВозврата(0);
               Возврат;
           КонецЕсли;
           ТЗ.УстановитьЗначение(ТЗ.ТекущаяСтрока(),ТЗ.ТекущаяКолонка(),Сумма);
           СделалиИзменения=1;
       КонецЕсли;  
   ИначеЕсли ТЗ.ТекущаяКолонка()="ДопИнфПоСотр" Тогда
       Если ВвестиСтроку(Сумма,"Введите дополнительную информацию о сотруднике", 100,0,0)=1 ТОгда
           ТЗ.УстановитьЗначение(ТЗ.ТекущаяСтрока(),ТЗ.ТекущаяКолонка(),Сумма);
           СделалиИзменения=1;
       КонецЕсли;      
   ИначеЕсли (ТЗ.ТекущаяКолонка()="Сотрудник") или (ТЗ.ТекущаяКолонка()="НомерКода") Тогда
       ?(ТЗ.НомерСтроки>0,ОткрытьФорму(ТЗ.ПолучитьЗначение(ТЗ.НомерСтроки,"Сотрудник"),,1),"");
   КонецЕсли;
КонецПроцедуры

"Чтобы понять рекурсию, надо понять рекурсию" (С)

Вот пример рекурсии. Не из типовой конфы.

(53)
1. это работать-то будет?
2. а зачем СтатусВозврата(0) в непредопределенной процедуре?

(55)
вот пример рекурсии тоже из нетиповой:

Функция Факториал(Чис)
  Возврат ?(Число(Чис)<=1, 1, Чис * Факториал(Чис - 1));
КонецФункции

(56) Работать-то будет...
Но за такую рекурсию отстреливать надо.

(57) И такую рекурсию - тоже не стоит использовать.

(56)


1.Обработка досталось по наследству и все работает))).
2.не знаю... Можно убрать, только лень корректировать.

(0)

Автор никогда, слышишь, никогда не используй рекурсию!

Функция ПолучитьРодителя(Сотр77,ВерхнийРодитель)
   
   ПустойРодитель = Справочники.ФизическиеЛица.ПустаяСсылка();
   Если Сотр77.Родитель.Выбран() = 0 тогда
       Возврат ВерхнийРодитель;
   КонецЕсли;
   КодРодителя = ДополнитьСтрокуСимволами(Сотр77.Родитель.Код,5,"0",0);
   НайдРод = Справочники.ФизическиеЛица.НайтиПоКоду(КодРодителя, Ложь);
   Если  НайдРод <> ПустойРодитель тогда
       Возврат НайдРод;
   КонецЕсли;
   
   НовОбъект =  Справочники["ФизическиеЛица"].СоздатьГруппу();
   НовОбъект.Код = КодРодителя;
   НовОбъект.Наименование = Сотр77.Родитель.Наименование;
   НовОбъект.Родитель = ПолучитьРодителя(Сотр77.Родитель,ВерхнийРодитель);
   НовОбъект.Записать();
   Возврат НовОбъект.Ссылка;
   
КонецФункциb

Вот пример при переносе данных через OLE с текущей иерархией

(62)-->(58)

(63) что там работать не будет? Перенесли справочник с сотрудниками более 3000 чел, все как по маслу

Из 77

(63) Со всей иерархией

рекурсия - это красиво, как и слово так и код, но только если код красивый.

(60) 1. Много отвратительного кода - работает. От этого он не перестаёт быть отвратительным.
(61) Глупый совет.
(63) В (62) использование рекурсии - весьма разумно. В (53) использование рекурсии несколько противоестественно.

(68)


Так, заинтриговали... Что можно изменить в процедуре (53).

(59) почему?

самое красивое использование рекурсии в (36) - не нужно использовать 5 вложенных циклов!

(69) В (53) используется так называемая "хвостовая рекурсия" - то есть, рекурсивный вызов является последним исполняемым оператором рекурсивной процедуры.

Рекурсивная процедура с хвостовой рекурсией:

Процедура Рек(Знач Х)

   Если Условие(Х) Тогда
       НекоторыеДействияЗависящиеОт(Х);
       Рек(НекотороеЗначениеЗависящееОт(Х));
   КонецЕсли;

КонецПроцедуры // Рек

эквивалентна следующему:

Процедура Нерек(Знач Х)

   Пока Условие(Х) Цикл
       НекотороеДействияЗависящиеОт(Х);
       Х = НекотороеЗначениеЗависящееОт(Х)
   КонецЦикла;

КонецПроцедуры // Нерек

При этом Нерек потребляет меньше памяти, работает быстрее, а выглядит ничуть не сложнее, чем Рек.

Хорошие оптимизирующие компиляторы отлавливают случаи хвостовой рекурсии и сами преобразуют их в циклы. 1С не является (в данном вопросе) хорошим оптимизирующим компилятором.

В (53) рекурсия является "хвостовой" - то есть, является _более туманным_ (с точки зрения чтения) и _медленнее работающим_ эквивалентом цикла.

(70) Факториал - другой (по сравнению с (72)) вид рекурсии, преобразуемый в цикл.
_В 1С_ использование цикла _для таких случаев_ - проще и эффективнее (подчёркнутое - существенно).

Недавно на этом форуме всплывал дурацкий пример с числами Фибоначчи, где _неправильное_ использование рекурсии повышало время вычислений с N до N*N.

(72)

А как в таком случае добиться, чтобы пользователь, к примеру ввел 9 знаков, а не меньше?

(74)

Пока ВвестиСтроку(Сумма,"Введите БИК",9,0,0)=1 Цикл
   Если СтрДлина(Сумма)=9 Тогда
       // Сделать что надо с введенным значением
       Прервать;
   КонецЕсли;
КонецЦикла;

(73) ну так получается использование (57) допускается... правда не для больших чисел!

(75)

Можно и так, только на скорость не влияет)))

(77) влияет на использование оперативной памяти!

(77) Влияет. И на скорость, и на объём занимаемой памяти.

Помедитируй над тем, что происходит при рекурсивном вызове, а что происходит при переходе к следующему шагу цикла.

(0) Очень часто приходится мне на практике пользоваться рекурсией: перенос данных между конфами, разузлование спецификаций в производстве и пр.
Примеры те же, что и для паскаля.

(79)

Найду человека, который быстро набивает текст и посмотрю...

(76) Я не спорю, что будет.

И я "за" рекурсию. Двумя руками. Но - применение рекурсии, как и любого другого средства, далеко не всегда целесообразно.

(81) Любой человек набивает текст слишком медленно.
Сгенерируй _большой_ файл, замени ВвестиСтроку на чтение из файла - и замерь время.

(83)

Вот на чтения из файла я никогда не буду пользоваться рекурсией.

(81) чего его искать...
можно итак понять - если использовать (53) и постояно делать "ошибкци", т.е. вызывать рекурсию, то стек вызова будет с каждым разом увеличиваться !!!
а вот (75) - не будет!

(84) А чем отличается ввод с клавиатуры от чтения из файла?

(82) я думаю, что её использование должно быть в умелых руках!

(85)

Понятно объяснил... Спорить не буду...
Но все же пользователю достаточно ошибится три раза. Не думаю, что пользователь ошибется 100 раз и более.

(86)

Смотря для чего...

(88) - dblbvj yt dbltk ytjdys[ gjkmpjdfntktq!

(89) В данном случае - разницы нет.

(88) - видимо не видел нервных полльзователей

Ладно, всем спасибо! Сегодня я стал умнее чуть-чуть...