Recursive Love

Sub TryDo()
Do While Love=True
    Dream "Не хочу я разлук"
    Speak "Без тебя не могу"
    Love=True
    If Err.Number Then TryDo()
    'Debug.Print "С ума сойду?"
    'If Me.IsMad() Then Exit Do
Loop
If Love Is Nothing Or _
    Not Love Then _
    Me.Dispose()
    Stop
    Exit Sub

If Me Is Nothing And Love Or _
...
...
...
"Class MyLife" : Compile error


Рецензии
Забавно ...
Только рекурсии то нет ...
Один бесконечный цикл ...

Эрнст Лустиг   22.06.2013 21:25     Заявить о нарушении
Спасибо за отзыв! Не думал, что кого-то заинтересует это.
Да, там и написано, что рекурсии на самом деле нет...
Ну разве было бы это понятно почти каждому (со школьным уровнем английского),
если бы это было реализовано функцией с рекурсивным вызовом самой из себя же?
В названии слово Recursive присутствует скорее для придания оттенка программерского... :)
Это просто прикол...

Агерес Кадрус   23.06.2013 23:12   Заявить о нарушении
Понятно, что это шутка.
Просто хотел что-то умное сказать, как программист программисту.
Успехов Вам!

Эрнст Лустиг   23.06.2013 23:26   Заявить о нарушении
Спасибо! И Вам успехов!:)
По-моему, гораздо забавнее - пересечься с ещё одним программистом
на просторах стихиры...

Агерес Кадрус   23.06.2013 23:30   Заявить о нарушении
Я заметил, что среди авторов много программистов. Наверное, есть что-то общее между красиво написанной программой и красивым стихом.

Эрнст Лустиг   23.06.2013 23:38   Заявить о нарушении
Наверное, соглашусь...
Нет, точно соглашусь :)

Агерес Кадрус   23.06.2013 23:42   Заявить о нарушении
Вы просто обязаны согласиться!
Иначе можно заподозрить, что Вы не цените либо красивое стихотворение, либо(страшно представить) красиво написанную программу:)

Эрнст Лустиг   23.06.2013 23:52   Заявить о нарушении
Да, второе, пожалуй, страшнее будет :D

Агерес Кадрус   23.06.2013 23:56   Заявить о нарушении