\futurelet 芸人クイズ

00README-quiz.md

問題

ファイルquiz.texのコードは
「引数に指定したトークン列に“ある変換”を適用した結果のトークン列を\Parsedに代入する」
という仕様のマクロ\Parseの実装である。

コードを読んで“ある変換”の内容を把握した上で、\Parseを\futureletを使わずに実装せよ。

※LaTeXまたはplain TeXを前提とする。

補足

• \Parseの入力のトークン列は以下に挙げる文字トークンのみを含むと仮定してよい。
  • カテゴリコード12のASCII数字（0～9）
  • カテゴリコード1の{
  • カテゴリコード2の}
  • カテゴリコード10のASCII空白

quiz.tex

\catcode`\@=11 %----------------------------------
\def\Parse#1{\let\Parsed\empty\my@parse@a#1\relax}
\def\my@parse@a{\futurelet\my@tok\my@parse@b}
\def\my@parse@b{\let\my@next\my@parse@c
  \if\my@tok\relax \let\my@next\relax
  \else\if\my@tok\space \let\my@next\my@parse@d
  \else\if\my@tok\bgroup \let\my@next\my@parse@e
  \fi\fi\fi \my@next}
\def\my@parse@c{\my@parse@f\S}
\expandafter\def\expandafter\my@parse@d\space{\my@parse@c{ }}
\def\my@parse@e{\my@parse@f\G}
\def\my@parse@f#1#2{%
  \expandafter\def\expandafter\Parsed\expandafter{%
    \Parsed#1{#2}}%
  \my@parse@a}
\catcode`\@=12 %----------------------------------

run-latex.tex

% LaTeX上でquiz.texのコードを実行する
\input{quiz}
\Parse{ 12{34} 5 {{6}7} }
\show\Parsed %==>\S { }\S {1}\S {2}\G {34}\S { }\S {5}\S { }\G {{6}7}\S { }
\stop