Фигасе прога

Тема в разделе "WASM.HEAP", создана пользователем osrootd, 16 июн 2009.

  1. osrootd

    osrootd New Member

    Публикаций:
    0
    Регистрация:
    30 июл 2008
    Сообщения:
    1.086
    Спер с говнокода.

    Программа, работающая на 15 языках ( Я запускал на Си, Ruby, python, bash, perl )
    Автор утверждает что программа работает на:
    C, C++, Haskell, Ruby, Python, Perl(x2), HTML, tcl, bash, zsh, make, bash и brainfuck.

    Проверьте, у кого оные языки есть:)

    Код (Text):
    1. # /* [  <!-- */ include  <stdio.h> /*   \
    2.   #{\
    3. `""""true \\#{"\n#"};           \
    4.   \
    5. if [ -n "$ZSH_VERSION" ]; then           \
    6.   \
    7.   echo exec  echo I\'m a zsh script.; \
    8.   \
    9. elif [ -n "$BASH_VERSION" ]; then        \
    10.   \
    11.   echo exec  echo I\'m a bash script.; \
    12. else  \
    13.   echo exec  echo  I\'m  a sh  script.;    \
    14. fi`;  #\
    15. BEGIN{print"I'm a ", 0 ? "Ruby"  :"Perl",  " program.\n";  exit; }
    16.   #\
    17. %q~            
    18.  
    19. set dummy =0; puts [list "I'm"  "a"  "tcl"  "script."]; exit  
    20.  
    21. all: ; @echo "I'm a Makefile."          \
    22.   #*/
    23. /*: */ enum {a, b};            \
    24.   \
    25. static int c99(void) {        
    26.  
    27. #ifndef __cplusplus /* bah */        
    28.  
    29. unused1: if ((enum {b, a})0)          \
    30.   (void)0;
    31. #endif          
    32.  
    33. unused2:  return a;     \
    34. }  \
    35. static int trigraphs(void) {         \
    36.   \
    37.   return sizeof  "??!"  ==  2;    \
    38. }  \
    39. char X;               \
    40.   \
    41. int main(void) {             \
    42.   \
    43.   struct X  {        \
    44.   \
    45.      char  a[2];    \
    46.   };\
    47.   if (sizeof(X)  !=  1) {       \
    48.   \
    49. printf("I'm a C++ program (trigraphs %sabled).\n",         \
    50.   \
    51.    trigraphs()  ? "en"  : "dis");\
    52.   \
    53. }else if (1//**/2
    54.  
    55.  
    56. )unused3 : { ; \
    57.     printf("I'm a C program (C%s, trigraphs %sabled).\n", \
    58.         c99() ? "89 with // comments" : "99", \
    59.         trigraphs() ? "en" : "dis"); \
    60.   } else { \
    61.     printf("I'm a C program (C89, trigraphs %sabled).\n", \
    62.         trigraphs() ? "en" : "dis"); \
    63.   } \
    64.   return 0; \
    65. } /*
    66. # \
    67. > main :: IO () -- -- \
    68. > main = putStr "I'm a Literate Haskell program.\n"
    69. # \
    70. ]>++++++++[<+++++++++>-]<+.>>++++[<++++++++++>-]<-.[-]>++++++++++ \
    71. [<+++++++++++>-]<-.>>++++[<++++++++>-]<.>>++++++++++[<++++++++++> \
    72. -]<- - -.<.>+.->>++++++++++[<+++++++++++>-]<++++.<.>>>++++++++++[ \
    73. <++++++++++>-]<+++++.<<<<+.->>>>- - -.<+++.- - -<++.- ->>>>>+++++ \
    74. +++++[<+++++++++++>-]<- - -.<<<<<.<+++.>>>.<<<-.- ->>>>+.<.<.<<.> \
    75. ++++++++++++++.[-]++++++++++"""`
    76. # \
    77. print "I'm a Python program."; """[-][--><html><head>
    78. <!--:--><title>I'm a HTML page</title></head><body>
    79. <!--:--><h1>I'm a <marquee><blink>horrible HTML</blink></marquee> page</h1>
    80. <!--:--><script language="Javascript">
    81. <!--: # \
    82. setTimeout( // \
    83.   function () { // \
    84.    document.body.innerHTML = "<h1>I'm a javascript-generated HTML page</h1>"; // \
    85.   }, 10000); // \
    86. //-->
    87. </script><!--: \
    88. </body></html><!-- } # \
    89. say "I'm a Perl6 program", try { " ($?PUGS_VERSION)" } // "", "."; # """ # */
    90. #define FOO ]-->~
    Оригинал тут
     
  2. dgs

    dgs New Member

    Публикаций:
    0
    Регистрация:
    23 июн 2008
    Сообщения:
    434
    80 она действительно работает на html
     
  3. perez

    perez Member

    Публикаций:
    0
    Регистрация:
    25 апр 2005
    Сообщения:
    502
    Адрес:
    Moscow city
    Код (Text):
    1. power1# gcc -v
    2. Using built-in specs.
    3. Target: i386-undermydesk-freebsd
    4. Configured with: FreeBSD/i386 system compiler
    5. Thread model: posix
    6. gcc version 4.2.1 20070719  [FreeBSD]
    7.  
    8. power1# g++ ./test1.cpp
    9. ./test1.cpp:37:19: warning: trigraph ??! ignored, use -trigraphs to enable
    10. power1# ./a.out
    11. I'm a C++ program (trigraphs disabled).
    12.  
    13. power1# cp test1.cpp test1.c
    14. power1# gcc test1.c
    15. test1.c:37:19: warning: trigraph ??! ignored, use -trigraphs to enable
    16. power1# ./a.out
    17. I'm a C program (C89 with // comments, trigraphs disabled).
    о_0
     
  4. shurik

    shurik Александр

    Публикаций:
    0
    Регистрация:
    27 авг 2006
    Сообщения:
    52
    Адрес:
    Украина
    Ruby, Python, Perl, bash, sh - работает :)

    Код (Text):
    1. shurik@shurik /usr/home/shurik/1$ python 1.rb
    2. I'm a Python program.
    3.  
    4. shurik@shurik /usr/home/shurik/1$ ruby 1.rb
    5. I'm a Ruby program.
    6.  
    7. shurik@shurik /usr/home/shurik/1$ perl 1.pl
    8. I'm a Perl program.
    9.  
    10. shurik@shurik /usr/home/shurik/1$ sh 1.rb
    11. : not found
    12. : not found
    13. : not found
    14. : not found
    15. I'm a sh script.
    16.  
    17. shurik@shurik /usr/home/shurik/1$ bash 1.rb
    18. : команда не найдена
    19. : команда не найдена
    20. : команда не найдена
    21. : команда не найдена
    22. : команда не найдена
    23. I'm a bash script.
     
  5. Com[e]r

    Com[e]r Com[e]r

    Публикаций:
    0
    Регистрация:
    20 апр 2007
    Сообщения:
    2.624
    Адрес:
    ого..
    на брейнфаке, как и предпологалось, не работае.
     
  6. Com[e]r

    Com[e]r Com[e]r

    Публикаций:
    0
    Регистрация:
    20 апр 2007
    Сообщения:
    2.624
    Адрес:
    ого..
    что то напутал автор с пунктуацией и стандартом.
    хотя если вырезать сам брейнфаковский кусок, то видим:
    D:\Files\.Coding\old\.Other\[+]-Code\Brainfuck cc\compiled>bfcc32.exe in.bf
    :: BRAINFUCK Compiler by Com[e]r ::
    :.....................(c).2007....:
    I'm a brainfuck program.


    гораздо круче было бы, если бы брейнфакерские символы были вставлены среди сишного кода, а не отдельным блоком.
    да и не только брейнфаковские, ато в сей затее только идея ценна, реализация - примитивна.
    /*now listening*/ Zymosis -- Zygomata..
     
  7. stallker

    stallker New Member

    Публикаций:
    0
    Регистрация:
    9 май 2008
    Сообщения:
    360
    С хабра стащил полиглот?)
     
  8. stallker

    stallker New Member

    Публикаций:
    0
    Регистрация:
    9 май 2008
    Сообщения:
    360
    Извиняюсь не заметил пруф. А вообще вот: http://habrahabr.ru/blogs/crazydev/62058/#habracut
     
  9. matich

    matich New Member

    Публикаций:
    0
    Регистрация:
    16 апр 2007
    Сообщения:
    72
    Comer_

    >>гораздо круче было бы, если бы брейнфакерские символы были вставлены среди сишного кода

    Почти все символы bf -- "[]<>,.-" кроме "+" итак по всему коду встречаются.
     
  10. Com[e]r

    Com[e]r Com[e]r

    Публикаций:
    0
    Регистрация:
    20 апр 2007
    Сообщения:
    2.624
    Адрес:
    ого..
    matich
    но они не используются по назначению.
    а если бы использовались так, чтобы удалив все остальные символы получился разумный брейнфаковский код - то да, то хек было бы.
     
  11. osrootd

    osrootd New Member

    Публикаций:
    0
    Регистрация:
    30 июл 2008
    Сообщения:
    1.086
    Хммм. А Brainfuck - это случайно не "мозгоЪб" по-русски?
     
  12. Com[e]r

    Com[e]r Com[e]r

    Публикаций:
    0
    Регистрация:
    20 апр 2007
    Сообщения:
    2.624
    Адрес:
    ого..
    osrootd
    он.
     
  13. md5

    md5 New Member

    Публикаций:
    0
    Регистрация:
    26 июн 2009
    Сообщения:
    8
    na python rabotajet