Tidak termasuk program sepele, kode apa yang dikompilasi dalam jumlah bahasa terbanyak?
(Dengan "sepele" maksud saya untuk mengecualikan jawaban seperti program kosong atau teks yang akan digaungkan secara langsung.)
Kode berikut ini ternyata mengkompilasi dalam semua bahasa pemrograman berikut (dan mencetak sesuatu yang berbeda di masing-masing bahasa): C, C ++, Perl, TeX, LaTeX, PostScript, sh, bash, zsh dan Prolog.
%:/*:if 0;"true" +s ||true<</;#|+q|*/include<stdio.h>/*\_/
{\if(%)}newpath/Times-Roman findfont 20 scalefont setfont(
%%)pop 72 72 moveto(Just another PostScript hacker,)show((
t)}. t:-write('Just another Prolog hacker,'),nl,halt. :-t.
:-initialization(t). end_of_file. %)pop pop showpage(-: */
int main(){return 0&printf("Just another C%s hacker,\n",1%
sizeof'2'*2+"++");}/*\fi}\csname @gobble\endcsname{\egroup
\let\LaTeX\TeX\ifx}\if00\documentclass{article}\begin{doc%
ument}\fi Just another \LaTeX\ hacker,\end{document}|if 0;
/(J.*)\$sh(.*)"/,print"$1Perl$2$/"if$_.=q # hack the lang!
/
sh=sh;test $BASH_VERSION &&sh=bash;test $POSIXLY_CORRECT&&
sh=sh;test $ZSH_VERSION && sh=zsh;awk 'BEGIN{x="%c[A%c[K"
printf(x,27,27)}';echo "Just another $sh hacker," #)pop%*/
Itu 10 bahasa berbeda. Saya menemukannya melalui pts oldalai (yang juga memiliki puisi Natal yang luar biasa ditulis dalam C, C ++, Perl dan TeX). Adakah yang bisa berbuat lebih baik?