1. 1C / Говнокод #23081

    +2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    //Модуль основной формы внешней обработки

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

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

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

    Запостил: informatikmarazmatik, 30 Мая 2017

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

    • ava informatikmarazmatik 30.05.2017 13:50 # +2

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

    • ava guest 30.05.2017 14:28 # +1

      У Вас стек перетечёт, а слона так и не реализуете.
      Ответить

      • ava gost 30.05.2017 15:45 # +3

        Плюсую этого гуеста. В последнее время вижу кучу рекурсивного кода, в котором рекурсия нахуй не сдалась - это что, мода такая, новая?
        Ответить

        • ava guest 30.05.2017 15:52 # 0

          Плюсанул этого госта.
          Ответить

        • ava dxd 31.05.2017 14:07 # +1

          Это из той же оперы, что и "ООП не нужно, будущее за ФП и жс".
          Ответить

          • ava AnalTorpedo 31.05.2017 15:40 # +2

            Но объектно-ориентированное программирование действительно не требуется - не в пример удобнее писать код, используя подход процедурного программирования. Сразу исчезает лабиринт из директорий вида "app", "public", "vendor" и прочих. Исчезает множество бессмысленных инициализационных строк, фигурных скобок и знаков "=>". Становится легче дышать.
            Ответить

            • ava dxd 31.05.2017 17:56 # 0

              Проблема не в том, нужно ли ООП, проблема в хайпе.
              Ответить

    • ava informatikmarazmatik 30.05.2017 16:12 # 0

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

    • ava MaaKut 24.08.2021 00:47 # 0

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

    • ava CTOMATOJlOr 10.01.2023 20:49 # 0

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

    Добавить комментарий