Говнокод

//Модуль основной формы внешней обработки

&НаКлиенте
Процедура ПродатьСлона(Оферта)
	
	Перем Акцепт;
	
	Если ПустаяСтрока(Оферта) Тогда
		
		Оферта = "Купи слона!";
		
	Иначе
		
		Оферта = "Все говорят """+Оферта+""" а ты купи слона!";
		
	КонецЕсли;	
		
	ВвестиСтроку(Акцепт,Оферта,0, Истина); 	
		
    ПродатьСлона(Акцепт);
	
КонецПроцедуры	

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	ПродатьСлона("");
	
КонецПроцедуры

Продаём слона!

Запостил:

informatikmarazmatik, 30.05.2017 (Updated 31.03.2018)

Комментарии (11) RSS

informatikmarazmatik 9 лет ago # 0

Все говорят "Я, informatikmarazmatik, находясь в здравом уме и твердой памяти, торжественно заявляю: Купи слона!" а ты купи слона!
Ответить
guest 9 лет ago # 0

У Вас стек перетечёт, а слона так и не реализуете.
Ответить
- gost 9 лет ago # 0 ⇈
  
  Плюсую этого гуеста. В последнее время вижу кучу рекурсивного кода, в котором рекурсия нахуй не сдалась - это что, мода такая, новая?
  Ответить
  - guest 9 лет ago # 0 ⇈
    
    Плюсанул этого госта.
    Ответить
  - dxd 9 лет ago # 0 ⇈
    
    Это из той же оперы, что и "ООП не нужно, будущее за ФП и жс".
    Ответить
    - AnalTorpedo 9 лет ago # 0 ⇈
      
      Но объектно-ориентированное программирование действительно не требуется - не в пример удобнее писать код, используя подход процедурного программирования. Сразу исчезает лабиринт из директорий вида "app", "public", "vendor" и прочих. Исчезает множество бессмысленных инициализационных строк, фигурных скобок и знаков "=>". Становится легче дышать.
      Ответить
      - dxd 9 лет ago # 0 ⇈
        
        Проблема не в том, нужно ли ООП, проблема в хайпе.
        Ответить
        
        roman-kashitsyn 9 лет ago # 0 ⇈
        
        > проблема в хайпе
        Который когда-то вызвал унылый ООП
        Ответить
informatikmarazmatik 9 лет ago # 0

//Версия 0.1 (оптимизированная)
//Устранена текучесть стейка[?]
//Модуль основной формы внешней обработки
&НаКлиенте
Функция ПродатьСлона(Акцепт)
Если ПустаяСтрока(Акцепт) Тогда
Оферта = "Купи слона!";
Иначе
Оферта = "Все говорят """+Акцепт+""" а ты купи слона!";
КонецЕсли;
Акцепт = "";
ВвестиСтроку(Акцепт,Оферта,141, Истина);
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Перем Акцепт;
Пока ПродатьСлона(Акцепт) Цикл КонецЦикла;
КонецПроцедуры
Ответить
MaaKut 5 лет ago # 0

Я достаточно долгое время живу за рубежом, поэтому как-то проще уделять время своим шалостям. Никто особо не третирует за вопрос бисексуальности, хотя и в самой моей бисексуальности есть тонкости.
Ответить
CTOMATOJlOr 4 года ago # 0

ну как, продали?
Ответить