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

    −57

    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
    type
    users_t = (tarasB := 0, superhackkiller1997, other_shit);
    say_ptr_t = procedure (const s : string);
 
var
    users : array of string = ('tarasB', 'superhackkiller1997', 'other_shit');
 
function bind(usr: users_t) : say_ptr_t;
begin
end;
 
{say_ptr_t bind(users_t usr) {
  void say(char * str) {
    fprintf(stderr, "%s: %s\n", users[usr], str);
  }
  say_ptr_t volatile p = say;
  return p;
}}
 
begin
    bind(tarasB)('is god');
    bind(superhackkiller1997)('shit');
    bind(other_shit)('ko-ko-ko');
end.

    Признавайтесь, кто автор кода?

    Запостил: huesto, 22 Сентября 2016

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

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