我认为这些问题已经说明了一切!:)
我所说的 TeX 是指 TeX 的任何衍生品,只要代码显然是 TeX 的衍生品,即它可以属于 TeX.SX(而不是纯 Lua)。
我会给出两个答案以便您明白我的意思。
答案1
我认为用 TeX 编写的火星探测器 Steve Hicks 控制器是一个很好的选择:2008 年 ICFP 竞赛 - TeX 中的火星探测器。
答案2
如果我的文件上没有这些污渍,我的老板/学生就会认为我不喝咖啡。如果他或他们认为我不喝咖啡,他们就会认为我在偷懒。谢谢 Hanno!
答案3
大卫·卡莱尔的圣诞“贺卡”http://www.ctan.org/pkg/xii。事实上,它在这里:通过纯 TeX 运行它:
\let~\catcode~`76~`A13~`F1~`j00~`P2jdefA71F~`7113jdefPALLF
PA''FwPA;;FPAZZFLaLPA//71F71iPAHHFLPAzzFenPASSFthP;A$$FevP
A@@FfPARR717273F737271P;ADDFRgniPAWW71FPATTFvePA**FstRsamP
AGGFRruoPAqq71.72.F717271PAYY7172F727171PA??Fi*LmPA&&71jfi
Fjfi71PAVVFjbigskipRPWGAUU71727374 75,76Fjpar71727375Djifx
:76jelse&U76jfiPLAKK7172F71l7271PAXX71FVLnOSeL71SLRyadR@oL
RrhC?yLRurtKFeLPFovPgaTLtReRomL;PABB71 72,73:Fjif.73.jelse
B73:jfiXF71PU71 72,73:PWs;AMM71F71diPAJJFRdriPAQQFRsreLPAI
I71Fo71dPA!!FRgiePBt'el@ lTLqdrYmu.Q.,Ke;vz vzLqpip.Q.,tz;
;Lql.IrsZ.eap,qn.i. i.eLlMaesLdRcna,;!;h htLqm.MRasZ.ilk,%
s$;z zLqs'.ansZ.Ymi,/sx ;LYegseZRyal,@i;@ TLRlogdLrDsW,@;G
LcYlaDLbJsW,SWXJW ree @rzchLhzsW,;WERcesInW qt.'oL.Rtrul;e
doTsW,Wk;Rri@stW aHAHHFndZPpqar.tridgeLinZpe.LtYer.W,:jbye
答案4
我们自己的布鲁诺·勒弗洛克谁编写了一个在控制台中运行的黑白棋游戏:
(除非您确实知道自己在做什么,否则请不要尝试重新格式化下面显示的代码;如果您尝试重新格式化,请尝试编译生成的代码,然后再替换此处的代码。)
% !TEX TS-program = tex
\long\def\3#1#2#3{}\vsize5cm\hsize4cm\newlinechar`*\def~#1{\catcode`#113~}
~QSU_VWJKLMNO@XY[](|+Z'"z:qj^;/)!,\ ${*13\3}
\def~#1#2{\let#1#2~}~*\cr[\ifnum(\ifcaseO\or|\else]\fiN\number@\advanceX
\expandafterZ\globalY\message~\defj{[0<Q[9>Q[0<J[9>J^|_]|_]|_]|_]}
~+{\count1}+1=9~_#1{@+1 1\countdef#1+1_}_QJVSKWUL,'"$\H!_-1'1"2+44'+55'+45"+54"~^{+NQNJ}
~:#1{#11#12#13#14#15#16#17#18}
~M#1{Y{#1}#1}~\h#1#2{M#2:{ \q#1}&M#2&M{*}}~\q#1#2{&M{(+#1#2 O-O0]}}
~/{Y{Row and column? e.g. E6*}\read_to\MX\j\meaning\M ;}
~\j#1->#2#3#4;{Q`#2@Q-`@J`#3@J-`0;(VY{Invalid move.}
/]}~;{V0 (jS1z1z0z_S0z1z_S_z1z0z_]}~\_{@,('O-]}
~z#1{{\H0K#1!1{\H1q}(!q]}}~q{@QS@JK[j="(\HZ^'Z\_2]\&q|[j='ZVV($(\H|Z!0]]]]}~\,#1{Q#1:\.}
~\.#1{J#1;[0<V\&[V>WWVUQLJ]]}~\^#1{(#1O0O1O2O2O2O2O1O0]}
~\&{!\^Q\multiply!3@!\^J@V(!9O1O6O1O1O2O6O2O4] }~\Z{M :{&M}&M{*}}
~){'X"X"N'\halign{&## *M{*}
\Z\h1A\h2B\h3C\h4D\h5E\h6F\h7G\h8H\Z}
\vfil\break$1W(W_|0] :\,$0 [0<W[1='QUJL|/];^'\_1][_=WM
{(,Tie| Player [0>,-|0] wins by N[0>,-],].}X\end])})