За винятком тривіальних програм, який код складається на найбільшій кількості мов?
(Під "тривіальним" я маю на увазі виключити відповіді, такі як порожня програма чи текст, які будуть повторюватися безпосередньо.)
Наступний код, очевидно, компілюється у всіх наступних мовах програмування (і друкує щось по-різному у кожній): C, C ++, Perl, TeX, LaTeX, PostScript, sh, bash, zsh та 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%*/
Це 10 різних мов. Я знайшов це через pts oldalai (у якого також є чудова різдвяна поема, написана на C, C ++, Perl і TeX). Хтось може зробити краще?