LINUX.ORG.RU
ФорумTalks

Фигасе прога


0

0

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 ]-->~

★★★★

Блин, а ведь и правда работает :)

// проверил на С, perl, python, bash, brainfuck, make

madgnu ★★★★★
()

А вообще я параноик и не запускаю незнакомые проги

//после того как мне один товарищ подсунул форкбомбу

z01
()

скучно-с. ни тебе сисек в коде, ни хитроподвыподвернуто спрятанной команды..

volh ★★
()

фигасе.. креативно!

isden ★★★★★
()
Ответ на: комментарий от madgnu

>В зависимости от языка выводит "I'm a %lang_name% {program|script|etc}"

посмотрев код так и понял

//мог бы сам сразу разобраться, лень меня погубит

z01
()

не, ну ещё бы:

#ifdef C
Вот тут для C
#endif

#ifdef C++
Вот тут для C++
#endif

#ifdef Brainfuck
Вот тут жесть
#endif

итд. Сложная программа, да. :)

jcd ★★★★★
()
Ответ на: комментарий от jcd

Ну дык для каждого языка ifdef разный, в этом и сложность ;)

Dimanc ★★
()
Ответ на: комментарий от sid350

> джава скрипт в опере глючит - мигает текст.

на всех вебкитах которые под рукой тоже

Joe_Bishop
()

в делфи не компилиться:
[Error] Project1.dpr(9): Constant expression expected

:-)

splinter ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.