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

    +76

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    function IPP (var i: integer): integer;
begin
  Result := i;
  Inc(i);
end;

    Запостил: TarasB, 21 Июня 2013

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

    • ava guest 21.06.2013 18:54 # −15

      показать все, что скрытоТоварищи, помогите пожалуйста зафлудить сайт vbbook.ru! Жутко быдлокодят, сил нет. А админ там - священник((

      //это не спам. Просто чтобы побольше людей увидело. Не удаляйте, пожалуйста.
      Ответить

      • ava eth0 21.06.2013 19:34 # +6

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

      • ava Lure Of Chaos 21.06.2013 20:00 # +1

        даже для меня, ярого сатаниста, грех мелко пакостничать слугам Яхве.
        Ответить

        • ava eth0 21.06.2013 20:05 # 0

          Какая церковь даёт свет?
          Ответить

          • ava Lure Of Chaos 21.06.2013 20:07 # +2

            церковь?
            или вы имели ввиду храм?
            Ответить

            • ava TarasB 21.06.2013 20:11 # 0

              Долой мелкие пакости! Да не попадём мы во власть мелкого пакостника-трансвестита Локи!
              Один наш бог! Сожги храм во имя Одина!!!
              Ответить

              • ava Lure Of Chaos 21.06.2013 20:14 # 0

                Отставить. Именем Люцифера запрещаю распри на религиозной почве.
                Это недостойно нас.
                Ответить

            • ava eth0 21.06.2013 20:47 # 0

              Строение, конечно же.
              Ответить

              • ava Lure Of Chaos 22.06.2013 01:15 # 0 

                электрический свет продолжает наш день
и коробка спичек пуста,
но на кухне синим цветком горит газ.

                или вам нужен тот свет, что учение, а неучение - приятный полумрак?
                Ответить

      • ava inkanus-gray 21.06.2013 23:00 # +1

        К сожалению или к счастью, я даже их чатик зафлудить не могу, ибо молитва священника оберегает его: 
        Fatal error: Call to a member function next() on a non-object in /var/www/ox2/data/www/#########/chat/inc/config.php on line 82
        Ответить

    • ava guest 21.06.2013 18:59 # −1

      > А админ там - священник

      Вашего родителя-комиссара дьячок невозбранно перекрестил, и с тех пор на семейном древе назаживающая рана?
      Ответить

    • ava bormand 21.06.2013 19:16 # +3 

      hui := IPP(hui);
      Ответить

    • ava inkanus-gray 21.06.2013 23:56 # 0

      Извращенцы так не пишут. Смотрите, как надо: 
      uses Windows;

function IPP (var i: integer): integer;
begin
  Result := i;
  InterlockedIncrement(i)
end;
      Или вообще в одну строку: 
      Result := InterlockedExchangeAdd(i, 1)
      Ответить

      • ava guest 25.06.2013 07:28 # +2

        Твой первый вариант не атомарный (хотя это и не требовалось, но не красиво).
        Ответить

        • ava bormand 25.06.2013 17:37 # +2 

          Result := InterlockedIncrement(i) - 1

          Как-то так это можно реализовать атомарно, если юзать именно эту функцию.
          Ответить

    • ava inkanus-gray 22.06.2013 01:12 # 0

      Кстати, никто не заметил, что Си проигрывает Паскалю, потому что в Си return должен быть последней операцией? Для реализации аналогичного функционала придётся либо заводить временную переменную, либо писать return (i - 1), что говно по сравнению с интуитивно понятным паскалевским кодом, лишённым избыточности.
      Ответить

      • ava myaut 22.06.2013 10:47 # +1

        А теперь расскажи, друже, как в Паскале организовать tail-call optimization?
        Как здесь: http://src.illumos.org/source/xref/illumos-gate/usr/src/uts/common/io/scsi/targets/sd.c#11508
        Ответить

        • ava inkanus-gray 22.06.2013 15:16 # 0

          Она и в Си без манипуляций со стеком не всегда возможна. Потребуется соглашение вызова cdecl и совпадение хотя бы части параметров либо передача аргументов через регистры. А вменяемые компиляторы должны сделать inline.

          В чём вопрос? В возможности/невозможности реализации такой оптимизации в кодогенераторе?
          Ответить

      • ava orion 22.06.2013 14:58 # +2

        > в Си return должен быть последней операцией.
        С чего это вдруг?
        Ответить

        • ava inkanus-gray 22.06.2013 15:03 # 0

          http://ideone.com/itaMAu

          Вот и я не знаю, с чего это вдруг вторая строка не выводится.
          Ответить

        • ava scriptin 22.06.2013 16:01 # +3

          Он, вероятно, хотел сказать, что при выполнении return функция завершит свою работу, то есть будет последней выполненной операцией. Просто выразился неточно.
          Ответить

          • ava absolut 23.06.2013 08:54 # 0

            Надо же: выключение питания последняя операция, которую делает компьютер...
            Ответить

            • ava bormand 23.06.2013 09:44 # 0

              Выпускание дымка - последняя операция, которую делает процессор.
              Ответить

              • ava absolut 23.06.2013 10:20 # 0

                дымовой тест обычно в самом начале проходят... или не проходят
                Ответить

      • ava Stertor 26.06.2013 17:39 # 0

        Меня раньше это убивало, я не понимал принцип и всегда создавал временную переменную. Но потом разобрался.
        Ответить

    • ava guest 25.06.2013 07:27 # 0

      I++
      Уж в дельфе небось это ещё больше UB, чем в крестах.
      Ответить

    • ava ctm 26.06.2013 07:26 # +2

      еще mmi, imm, ppi.
      при очень частых вызовах будут тормоза из-за стека. лучше добавить inline, если поддерживается
      Ответить

    • ava inkanus-gray 26.06.2013 13:51 # +1

      Ненадёжно. Лучше так: 
      function IPP (var i: integer): integer;
begin
  Result := i;
  repeat
    Inc(i)
  until i = Result + 1
end;
      Ответить

    • ava Stertor 26.06.2013 17:40 # −2

      Ну еще бы. Мало ли что там, на стеке.
      Ответить

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