1. Pascal / Говнокод #2020

    −34.5

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    function IsTrue(Value: boolean): boolean;
begin
 if Value <> true then result := false
 else if Value <> false then result := true
 else // внимание!
   result := (not true) and (not false);
end;

    Запостил: jack128, 22 Октября 2009

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

    • ava guest 22.10.2009 11:10 # −1

      а как узнать, что возвращает эта функция? IsTrue(IsTrue(IsTrue(IsGovnokod())))
      Ответить

    • ava guest 22.10.2009 11:45 # 0

      лопата
      Ответить

    • ava guest 23.10.2009 11:44 # −1

      неиллюзорный пиздец.
      Ответить

    • ava 4auka 24.10.2009 02:04 # 0

      Фигня какая-то.
      Нафиг такое вообще кому-то писать?
      Ответить

    • ava Сан Саныч 24.10.2009 10:05 # 0

      Улыбнуло
      Ответить

    • ava guest 24.10.2009 10:29 # −1

      сломали мозг
      Ответить

    • ava guest 24.10.2009 21:13 # 0

      Лично я валялся на полу, но вообще понятно, что код написан специально, такое не напишешь сдуру =/
      Ответить

      • ava guest 20.12.2009 09:54 # −1

        Ты идиот, не умеющий уловить ход мыслей другого человека.
        Автор всего лишь пытался реализовать тренарную проверку на истиность (true, false или unknown). Просто по глупости сделал это на базе всего одной булевой переменной. Рабочий код в его индусском исполнении мог выглядеть как-то так:

        function IsTrue(Value: byte): string[7];
        begin
        if Value = 0 then result := "false"
        else if Value = 1 then result := "true"
        else result := "unknown";
        end;
        Ответить

        • ava guest 18.05.2010 20:04 # −1

          ага. Человек замыслил сделать конфетку, получилось, как обычно, говно, а идиот - тот, кто сказал, что говно - это говно а не конфетка.
          Браво
          Ответить

        • ava guest 22.05.2010 19:30 # −1

          сцуко ну ты и оленевод бельдыев
          Ответить

        • ava guest 22.05.2010 19:31 # −1

          ты бы этому ушлепку ещеб премию б дал
          Ответить

    • ava Barmaglot 27.10.2009 00:37 # 0

      Спасибо, очень порадовали. Несмотря на нарочитость - не верю что такое можно написать по глупости, +
      Ответить

    • ava dim1r 27.10.2009 11:36 # +1

      Кстати на PL/SQL - это вполне правильная процедура (если переписать по правилам синтаксиса PL/SQL ).
      IsTrue(NULL) вернет (not true) and (not false);
      Ответить

      • ava guest 27.10.2009 17:57 # −1

        Да, кстати, может имелся ввиду NULL?

        Но вообще да, порадовало.
        Ответить

    • ava guest 13.11.2009 12:42 # −1

      Я некогда подобное написал. Когда упрощал код, заменял переменные константами... Коллеги потом долго спрашивали "а зачем вот это?"
      Ответить

    • ava Lolwho 23.11.2009 19:18 # +1

      Что то я не курю.
      Ведь:
      Not True это False, а Not False это True. True and False это False :?
      Ответить

    • ava guest 20.12.2009 09:41 # −2

      Не сработает. Переменная result не объявлена.
      Ответить

      • ava guest 22.12.2009 23:15 # −1

        Объявлена. Так возвращается результат функции в Object Pascal
        Ответить

    • ava guest 19.04.2010 12:06 # −1

      Lolwho
      я о том же. что может возвратить функция, если не true и не false?
      ввобще-то вопрос с подвохом. ели я не ошибаюсь, то ф-я не может возвратить другого значения кроме true или false. Или ещё что-то есть?
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      Да не будет лжи!
      if false = false then false := true
      else
      false := true; :))))))))))))))))
      Ответить

    • ava ctm 26.08.2010 16:10 # 0

      однозначно говнокод.
      в "else // внимание!" попадет, если вызвать
      IsTrue(boolean(2)); // еще больший говнокод ;)
      Ответить

    • ava guest8 11.07.2020 03:36 # −999

      показать все, что скрытоvanished
      Ответить

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