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

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    procedure ChangeChar(var c: char; val: char);
    begin
      c := val;
    end;

    Это из модуля PABCSystem. Но зачем?

    Запостил: Morgoth, 26 Сентября 2018

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

    • Христа ради...
      Ответить
    • Ежели в поцкале есть функциональщина, то сойдет как костыль для преобразования.
      Ответить
      • Да вообще контекст надо смотреть. Указатели на функцию-то там точно есть, условная компиляция вроде тоже...
        Ответить
        • Да-да, но это не фуекция, а процедура, часть стандартной библиотеки, а пипизация в паскале строгая – там, где нужна ыункция вряд ли пропиздуоюрину сунешь.
          Ответить
        • Зато в "PHP" всей этой хуеты нет. Поэтому я за "PHP".
          Ответить
    • В пхп есть коллбеки, но они какие-то сранные. А вот насчет условной компиляции незнаю, но можно пхп препроцессить пхп, гуест где-то примером уже насирал.
      Ответить
    • Должно быть хотя бы
      procedure ChangeChar(var c: char;  var val: char);
      var b:char;
      begin
        b:=c;
        c := val;
        val:=b;
      end;
      Ответить

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