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

    +94

    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
    var
   one, two, free, four:string;
begin
   one:=sLabel14.Caption+slabel14.caption;
   two:=sLabel1.Caption+slabel15.caption;
   free:=sLabel10.Caption+slabel16.caption;
   four:=sLabel7.Caption+slabel17.caption;

   if ((one = two) or (one = free) or (one = four)
   or (two = one) or (two = free) or (two = four)
   or (free = one) or (free = two) or (free = four)
   or (four = one) or (four = two) or (four = free))
   then begin
       showmessage('Значения должны быть различными');
   end
   else begin
       showmessage('Успешно сохранено');
   end;

    Ну не лол?

    Запостил: penkovsky1, 29 Марта 2012

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

    • ava eth0 29.03.2012 21:25 # +1

      > (four = free)
      Бесплатное четыре!
      > (one = four)
      > (four = one)
      Недостаточно трудолюбивый копипастер. Достаточно трудолюбивый сделал бы все 16 условий.
      Ответить

    • ava istem 29.03.2012 23:51 # −4

      [offpost]google выпустил первый релиз своего Go. Первое впечатление - это серобурмалиновая диффузия...[/offpost]
      Ответить

      • ava guest 30.03.2012 11:58 # +2

        Не нужен, хотя бы потому что дополнительный крючок гугла. Другая поделка (недоось) Пайка интереснее.
        Ответить

    • ava govnomonad 30.03.2012 04:22 # 0

      транзитивность? не не слышал
      Ответить

    • ava Makar4egg 08.04.2012 02:38 # 0

      ...а вот я не понял.
      вот такая конструкция IF - отрабатывает В РАЗЫ быстрее цикла проверки.
      ...Или никто не пытался оптимизировать код по скорости исполнения???
      Ответить

      • ava TarasB 08.04.2012 11:35 # 0

        Такой if работает где-то в два раза дольше цикла проверки.
        Ответить

        • ava Makar4egg 08.04.2012 16:15 # 0

          с целочисленными сравнениями, такое было бы раза в 4 быстрее цикла.
          со строковыми - навскидку процентов на 20-50.
          хотя, учитывая showmessage... дурацкая затея, конечно.
          Ответить

          • ava rat4 08.04.2012 16:27 # +1

            Разворачивать циклы должен компилятор, а не программист.
            Ответить

          • ava TarasB 08.04.2012 17:40 # +1

            Тут сравнений в два раза больше, чем должно быть. А операции по сдвигу счётчика цикла - это мелочи по сравнению со сравнениями.
            Ответить

            • ava Makar4egg 08.04.2012 21:19 # 0

              да это-то понятно.
              сомневаюсь, что автор цикл написал бы без лишних сравнений.
              Ответить

              • ava guest 13.04.2012 21:48 # 0

                А какой цикл в данном случае вообще можно было применить?
                Ведь сравнивать необходимо не элементы массива, а отдельные переменные.
                Ответить

                • ava TarasB 14.04.2012 11:36 # +1

                  До ты же ламер ны те умееш нопремую оброщатся к памети

                  if PString(PChar(@one) + i * sizeof(String))^ = PString(PChar(@one) + j * sizeof(String))^
                  Ответить

                  • ava guest 14.04.2012 16:56 # +2

                    Нет, это не есть хороший стиль программирования, а всего лишь другой говнокод.
                    Так что в данном случае, при условии, что добавлять новые переменные не потребуется, незачёт кодер получает только за банальное непонимание/незнание коммутативности.
                    Ответить

    • ava guest8 09.04.2019 12:57 # −999

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

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