文字をn回繰り返す

Question 1

パッケージなし:

\documentclass{article}

\makeatletter
\newcount\my@repeat@count
\newcommand{\myrepeat}[2]{%
  \begingroup
  \my@repeat@count=\z@
  \@whilenum\my@repeat@count<#1\do{#2\advance\my@repeat@count\@ne}%
  \endgroup
}
\makeatother

\begin{document}

\myrepeat{4}{x}

\myrepeat{4}{\myrepeat{2}{x}}

\end{document}

なぜグループなのでしょうか? ネストされた呼び出しが可能だからです。

文字を繰り返したいだけの場合:

\documentclass{article}

\newcommand\myrepeat[2]{%
  \begingroup
  \lccode`m=`#2\relax
  \lowercase\expandafter{\romannumeral#1000}%
  \endgroup
}

\begin{document}

\myrepeat{4}{x}

\end{document}

Ulrich Diezが正しくコメントしているように、このコードでは繰り返し回数をカウンターとして登録することはできません。これをサポートするには、もう少し複雑なバージョンがあります。

\newcommand\myrepeat[2]{%
  \begingroup
  \lccode`m=`#2\relax
  \lowercase\expandafter{\romannumeral\number\number#1 000}%
  \endgroup
}

\romannumeral\number2番目を展開する最初のものをトリガーします。たとえば、4つあるとすると#1、（•スペーストークンを表します）

\romannumeral\number\number4•000
\romannumeral\number4000
\romannumeral4000
mmmm

代わりに、\count27として、値4を保持すると、次のようになります#1。\count27

\romannumeral\number\number\count27•000
\romannumeral\number4000
\romannumeral4000
mmmm

\foo（名前付きカウンタレジスタ）が値4を保持している場合、

\romannumeral\number\number\foo•000
\romannumeral\number4•000
\romannumeral4000
mmmm

したがって二\number3 番目のケースをカバーするには、のインスタンスが必要です。これは、スペースによって「明示的な」数値の検索が終了し、無視されるという事実を利用しています (スペーストークンは、2 番目の\numberトークンの展開後の 3 番目のケースでは無視されません)。

繰り返しの間にテキストも入れたい場合は、最初の方法は非常に簡単です。ループを 1 から開始するだけです。

\makeatletter
\newcount\my@repeat@count
\newcommand{\myrepeat}[3]{%
  % #1 = number of repetition
  % #2 = text to repeat
  % #3 = text in between
  \begingroup
  #2
  \my@repeat@count=\@ne
  \@whilenum\my@repeat@count<#1\do{#2#3\advance\my@repeat@count\@ne}%
  \endgroup
}
\makeatother

(これを繰り返しなしで呼び出さないでください)。

再帰と古いアイデアを使用した別のソリューションでは、\romannumeral#1000一度に 1 つずつ使用できる m の長い文字列が生成されます。

\documentclass{article}

\makeatletter
\newcommand\myrepeat[3]{%
  % #1 is the number of repetitions
  % #2 is the code to repeat
  % #3 is the code to put in the middle
  \expandafter\myrepeat@aux\expandafter{\romannumeral\number\number#1 000}{#2}{#3}%
}
\newcommand{\myrepeat@aux}[3]{\myrepeat@auxi{#2}{#3}#1;;}
\def\myrepeat@auxi#1#2#3#4{%
  \ifx#3;%
    \expandafter\@gobble % recursion has ended
  \else
    \expandafter\@firstofone % still one m to swallow
  \fi
  {\myrepeat@auxii{#1}{#2}{#4}}%
}
\def\myrepeat@auxii#1#2#3{%
  #1\ifx#3;\else#2\fi
  \myrepeat@auxi{#1}{#2}#3% restart the recursion
}
\makeatletter

\begin{document}

\myrepeat{4}{x}{-}

\myrepeat{1}{x}{-}

X\myrepeat{0}{x}{-}X

\end{document}

再帰は消費する二一度に 2 つのトークンを出力して、あと 1 つのステップだけ実行する必要があるかどうかを区別します。再帰が再開されると、2 番目のトークンが戻されます。

しかし、これはあくまでも研究のためのものです。実際の応用では、

\usepackage{xparse}

\ExplSyntaxOn
\NewExpandableDocumentCommand{\myrepeat}{O{}mm}
 {
  \int_compare:nT { #2 > 0 }
   {
    #3 \prg_replicate:nn { #2 - 1 } { #1#3 }
   }
 }
\ExplSyntaxOff

\myrepeat[-]{4}{x}呼ばれるのと同じように

xxxx さん

そして\myrepeat{3}{A}得るために

AAA

Answer