如何让 TeX 表现出有趣的、意想不到的方式？

Question 1

\documentclass{article}
\let\elsecopy\else\AtEndDocument{\def\else{\let\else\elsecopy}}
\begin{document}
\end{document}

产生以下错误消息：

! LaTeX Error: \begin{document} ended by \end{document}.

乍一看这很有趣。

在查看了的定义之后，\end⎵这并不奇怪：通过比较来确定-和-宏是否使用相同的参数，并没有被视为在-条件不满足的情况下引入分支的东西。\enddocument\@checkend\else\ifx\@checkend\begin\end\ifx

Answer

\documentclass{article}
\let\elsecopy\else\AtEndDocument{\def\else{\let\else\elsecopy}}
\begin{document}
\end{document}

产生以下错误消息：

! LaTeX Error: \begin{document} ended by \end{document}.

乍一看这很有趣。

在查看了的定义之后，\end⎵这并不奇怪：通过比较来确定-和-宏是否使用相同的参数，并没有被视为在-条件不满足的情况下引入分支的东西。\enddocument\@checkend\else\ifx\@checkend\begin\end\ifx

Question 2

按照Michael Downes 的“Around The Bend”专栏第 11 次^挑战你可以把一些模糊难读的东西变成

\documentclass{article}
\begin{document}
Hello, world!
\end{document}

变成尽可能简短易读的东西

%%   The following snippet requires eTeX-support.                     %%
%%   For more info on minimal encoding scheme and self-decoder see    %%
%%   http://www.ctan.org/tex-archive/info/aro-bend/answer.011         %%
\begingroup\endlinechar-1\let\+\let\+\a\def\a\c{\j\o}\+\m\relax\+\g\else
\a\b{\c7 \f\o>93 \f\o<101\c1 \h\h\f\o>125\c-93 \h}\+\j\advance\+\f\ifnum
\a\d{\catcode\o12 \uccode\o\p}\+\n\endgroup\+\l\noexpand\+\o\fam\+\p\mag
\a\q#1{\f`#1=13\k~\h\f`#1=32\k!\h\f`#1=36\k##\h\f`#1=94\k"\h}\+\k\string
\+\e\expandafter\+\h\fi\a\i{\j\p1 }\a~#1{\f\p<126\d\b\i\f\p=94\i\h\g\f\p
=126\b\b\b\b\c127 \g\d\c7 \f\o>255\c-129 \h\h\i\h\f\p>255\edef~{\a\l~\l~
####1 ####2\k E\k T}~{\+~\q\uppercase{\edef~{##1}}\e\n\e\begingroup\e
\newlinechar\e1\e3\e\relax\e\scantokens\e{\e\endgroup~}}\h#1#1}\o"6B
\begingroup\a~{\n\p13 ~\m\p32 ~\m\p94 ~\m\p36 ~~}~
;m]f+OtV$fHWzzUWs$3fHtdk;_t%3VUm]f+OtV$dkhtHH][r9]sHm~rk;tVmUm]f+OtV$d %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% END OF SNIPPET

。使用进一步的和后者用 pdflatex 编译都会得到以下输出：

Answer

按照Michael Downes 的“Around The Bend”专栏第 11 次^挑战你可以把一些模糊难读的东西变成

\documentclass{article}
\begin{document}
Hello, world!
\end{document}

变成尽可能简短易读的东西

%%   The following snippet requires eTeX-support.                     %%
%%   For more info on minimal encoding scheme and self-decoder see    %%
%%   http://www.ctan.org/tex-archive/info/aro-bend/answer.011         %%
\begingroup\endlinechar-1\let\+\let\+\a\def\a\c{\j\o}\+\m\relax\+\g\else
\a\b{\c7 \f\o>93 \f\o<101\c1 \h\h\f\o>125\c-93 \h}\+\j\advance\+\f\ifnum
\a\d{\catcode\o12 \uccode\o\p}\+\n\endgroup\+\l\noexpand\+\o\fam\+\p\mag
\a\q#1{\f`#1=13\k~\h\f`#1=32\k!\h\f`#1=36\k##\h\f`#1=94\k"\h}\+\k\string
\+\e\expandafter\+\h\fi\a\i{\j\p1 }\a~#1{\f\p<126\d\b\i\f\p=94\i\h\g\f\p
=126\b\b\b\b\c127 \g\d\c7 \f\o>255\c-129 \h\h\i\h\f\p>255\edef~{\a\l~\l~
####1 ####2\k E\k T}~{\+~\q\uppercase{\edef~{##1}}\e\n\e\begingroup\e
\newlinechar\e1\e3\e\relax\e\scantokens\e{\e\endgroup~}}\h#1#1}\o"6B
\begingroup\a~{\n\p13 ~\m\p32 ~\m\p94 ~\m\p36 ~~}~
;m]f+OtV$fHWzzUWs$3fHtdk;_t%3VUm]f+OtV$dkhtHH][r9]sHm~rk;tVmUm]f+OtV$d %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% END OF SNIPPET

。使用进一步的和后者用 pdflatex 编译都会得到以下输出：

Question 3

对于那些不知道如何\endlinechar运作的人来说，这也许并不好笑，但却出乎意料：

Hello world!
\endlinechar=`\e\relax
\by

由于在对这些字符进行标记之前存在机制，e控制字标记名称的尾随字符\bye将附加到 .tex-input 行的字符之后。\endlinechar

有点令人困惑：

Hello world!
\begingroup
\endlinechar=`y \catcode`\y=13 \def y{\string ye\endcsname}
\expandafter\endgroup\csname b

一个很好的写法是十遍“我不能在课堂上说话！”：

\begingroup
% \endlinechar=`\^^M\relax
\catcode`\^^M=13 %
\def^^M{\hbox{I must not talk in class!}}\par









\endgroup % Just hit return ten times.
\bye

Answer