http://www.wasm.ru/forum/viewtopic.php?pid=323553#p323553
> Программа, работающая на 15 языках ( Я запускал на Си, Ruby, python, bash, perl )
> Автор утверждает что программа работает на:
> C, C++, Haskell, Ruby, Python, Perl(x2), HTML, tcl, bash, zsh, make, bash и brainfuck.  
> Оригинал тут
> http://govnokod.ru/1205  
# /* [  <!-- */ include  <stdio.h> /*   \
  #{\
`""""true \\#{"\n#"};           \
  \
if [ -n "$ZSH_VERSION" ]; then           \
  \
  echo exec  echo I\'m a zsh script.; \
  \
elif [ -n "$BASH_VERSION" ]; then        \
  \
  echo exec  echo I\'m a bash script.; \
else  \
  echo exec  echo  I\'m  a sh  script.;    \
fi`;  #\
BEGIN{print"I'm a ", 0 ? "Ruby"  :"Perl",  " program.\n";  exit; } 
  #\
%q~            
 
set dummy =0; puts [list "I'm"  "a"  "tcl"  "script."]; exit   
 
all: ; @echo "I'm a Makefile."          \
  #*/
/*: */ enum {a, b};            \
  \
static int c99(void) {         
 
#ifndef __cplusplus /* bah */        
 
unused1: if ((enum {b, a})0)          \
  (void)0;
#endif           
 
unused2:  return a;     \
}  \
static int trigraphs(void) {         \
  \
  return sizeof  "??!"  ==  2;    \
}  \
char X;               \
  \
int main(void) {             \
  \
  struct X  {        \
  \
     char  a[2];    \
  };\
  if (sizeof(X)  !=  1) {       \
  \
printf("I'm a C++ program (trigraphs %sabled).\n",         \
  \
   trigraphs()  ? "en"  : "dis");\
  \
}else if (1//**/2
 
 
)unused3 : { ; \
    printf("I'm a C program (C%s, trigraphs %sabled).\n", \
        c99() ? "89 with // comments" : "99", \
        trigraphs() ? "en" : "dis"); \
  } else { \
    printf("I'm a C program (C89, trigraphs %sabled).\n", \
        trigraphs() ? "en" : "dis"); \
  } \
  return 0; \
} /*
# \
> main :: IO () -- -- \
> main = putStr "I'm a Literate Haskell program.\n"  
# \
]>++++++++[<+++++++++>-]<+.>>++++[<++++++++++>-]<-.[-]>++++++++++ \  
[<+++++++++++>-]<-.>>++++[<++++++++>-]<.>>++++++++++[<++++++++++> \
-]<- - -.<.>+.->>++++++++++[<+++++++++++>-]<++++.<.>>>++++++++++[ \
<++++++++++>-]<+++++.<<<<+.->>>>- - -.<+++.- - -<++.- ->>>>>+++++ \
+++++[<+++++++++++>-]<- - -.<<<<<.<+++.>>>.<<<-.- ->>>>+.<.<.<<.> \
++++++++++++++.[-]++++++++++"""`
# \
print "I'm a Python program."; """[-][--><html><head>
<!--:--><title>I'm a HTML page</title></head><body>
<!--:--><h1>I'm a <marquee><blink>horrible HTML</blink></marquee> page</h1>
<!--:--><script language="Javascript">
<!--: # \
setTimeout( // \
  function () { // \
   document.body.innerHTML = "<h1>I'm a javascript-generated HTML page</h1>"; // \
  }, 10000); // \
//-->
</script><!--: \
</body></html><!-- } # \
say "I'm a Perl6 program", try { " ($?PUGS_VERSION)" } // "", "."; # """ # */
#define FOO ]-->~

    
      Ответ на:
      
          комментарий
        от kost-bebix 
  
    
      Ответ на:
      
          комментарий
        от Delay 
  
    
      Ответ на:
      
          комментарий
        от Delay 
  
    
      Ответ на:
      
          комментарий
        от z01 
  
    
      Ответ на:
      
          комментарий
        от Delay 
  
    
      Ответ на:
      
          комментарий
        от z01 
  
    
      Ответ на:
      
          комментарий
        от z01 
  
    
      Ответ на:
      
          комментарий
        от madgnu 
  

    
      Ответ на:
      
          комментарий
        от jcd 
  
    
      Ответ на:
      
          комментарий
        от sid350 
  

    
        Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
      
Похожие темы
- Форум YACC (2011)
 - Форум phtread и fork() (2010)
 - Форум Webform: onclick не дожидается, пока выполнится cgi-скрипт (2015)
 - Форум YACC (2012)
 - Форум [c][perl?] exec (2008)
 
- Форум Программа из K&R вопросы по warnings, полученные от gcc (2015)
 - Форум Бинарник откомпилированный gcc - работает, clang - нет. (2014)
 - Форум Как узнать, сколько памяти доступно для выделения? (2005)
 - Форум GCC 15 ломает код сишникам (2024)
 - Форум libWebKitGtk (не загружается файл HTML) (2021)