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

    +144

    1. 1
    2. 2
    3. 3
    4. 4
    {$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:='''';
    b:='{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:=';
    a:='writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.';
    writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.

    Это код-шутка - как раз для вечера пятницы :)
    можно запустить программу, скопировать то, что выведется на экран в Delphi, скомпилировать, запустить... и так до бесконечности.
    автора не знаю, есть еще 1 пример кода.

    Запостил: ctm, 22 Октября 2010

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

    • я так понимаю это Куайн-программка?
      Под рукой делфей нету(
      Ответить
    • Запостивший никогда не слышал о квайнах?
      Ответить
      • До прочтения первого коммента не слышал :(
        Погуглил, нашел много таких :)
        Ответить
    • Да, моя самопрограмма занимала 52 монстроподобные строки.
      На Википедии есть абсолютно читабельный вариант в 3 понятные строчки. В смысле, в честные строчки, а не как тут.
      Ответить
      • CONST A='BEGIN WRITE(#67#79#78#83#84#32#65#61#39,A,#39#59,A);END.';BEGIN WRITE(#67#79#78#83#84#32#65#61#39,A,#39#59,A);END.

        турбо паскаль. на первом курсе такое написал. правда сначала недельку думал над тем как вообще такое сделать (в те далекие лохматые годы инета у меня не было и готовых примеров тоже, все пришлось делать самому)
        Ответить
        • Я нашёл свой вариант. Надо сюда этот ужас запостить.
          Ответить
    • Реализация на Бейсике:
      10 LIST
      Ответить
    • реализация на php:

      {ничего}
      Ответить
    • оО
      Ответить

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