checkanswer.tex

\makeatletter
\newif\if@wrong\@wrongtrue

\def\CheckAnswer#1{%
  \def\x@ans{E394D353A8067671DDDEC726F1D054C8}%
  \let\x@tmpa\@empty
  \expandafter\@tfor\expandafter\@char\expandafter:\expandafter=\x@ans
    \do{\xdef\x@tmpa{\expandafter\x@tmpa\expandafter\string\@char}}%
  \xdef\x@tmpb{\pdfmdfivesum{#1}}%
  \ifx\x@tmpa\x@tmpb\relax
    \@wrongfalse
    \typeout{Congratulations!!}%
    \@@end
  \else
    \typeout{Think again :(}%
  \fi}

\def\x@chop#1 {#1}
\@whilesw\if@wrong\fi{%
  \read16 to \YourAnswer
  \xdef\x@tmpa{\expandafter\x@chop\YourAnswer}%
  \expandafter\CheckAnswer\expandafter{\x@tmpa}}
\makeatother
% vim: set ft=plaintex:

初級者向け LaTeX実力テスト ～キホン編～ の答え合わせ

Usage: (pdf)latex checkanswer.tex