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

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