生成字符串所有可能大写字母的最有效方法？

Question

假设我有字符串abc。所谓“所有可能的大写字母”是指以下 8 个不同的字符串：

• ABC
• ABc
• AbC
• Abc
• aBC
• aBc
• abC
• abc

我特别喜欢的是生成包含这些字符串列表的 LaTeX3 序列的最佳方法，但其他选项也可能有效。

Answer 1

您可以对“任意”字符串执行此操作。其实也不是那么任意，因为 32 个字符长的字符串将产生 2^32 个项目。

无论如何，代码如下。诀窍是使用数字的二进制表示：1 表示“大写”，零或无表示“保留大小写”。

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\generate}{O{default}m}
 {% #1 = name for a sequence, #2 = string
  \kevinkeith_generate:nn { #1 } { #2 }
 }

\NewDocumentCommand{\use}{O{default}+m}
 {
  \seq_map_inline:cn { l_kevinkeith_generate_#1_seq } { #2 }
 }

\cs_new_protected:Nn \kevinkeith_generate:nn
 {
  \seq_clear_new:c { l_kevinkeith_generate_#1_seq }
  \seq_clear:N \l__kevinkeith_generate_temp_seq
  \int_step_inline:nnnn { 0 } { 1 } { \fp_eval:n { 2^(\tl_count:n{#2})-1 } }
   {
    \__kevin_keith_generate_case:xn { \int_to_bin:n { ##1 } } { #2 }
   }
  \seq_set_eq:cN { l_kevinkeith_generate_#1_seq } \l__kevinkeith_generate_temp_seq
 }
\cs_new_protected:Nn \__kevin_keith_generate_case:nn
 {
  \tl_clear:N \l__kevinkeith_generate_case_tl
  \int_step_inline:nnnn { 1 } { 1 } { \tl_count:n { #2 } }
   {
    \str_if_eq_x:nnTF { \tl_item:nn { #1 } { -##1 } } { 1 }
     {
      \tl_put_right:Nx \l__kevinkeith_generate_case_tl
       {
        \tl_upper_case:n { \tl_item:nn { #2 } { ##1 } }
       }
     }
     {
      \tl_put_right:Nx \l__kevinkeith_generate_case_tl
       {
        \tl_item:nn { #2 } { ##1 }
       }
     }
   }
  \seq_put_right:NV \l__kevinkeith_generate_temp_seq \l__kevinkeith_generate_case_tl
 }
\cs_generate_variant:Nn \__kevin_keith_generate_case:nn { x }

\tl_new:N \l__kevinkeith_generate_case_tl
\seq_new:N \l__kevinkeith_generate_temp_seq

\ExplSyntaxOff


\begin{document}

\generate{abc}
\use{#1 }

\generate[four]{abcd}
\use[four]{#1 }

\end{document}

一个更快的代码，只打印一种可能的大写字母，给出一个介于 1 和 2 之间的数字，其数字的升序为字符串长度。

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\capitalizestring}{mm}
 {% #1 = index of capitalized string, #2 = string
  % the index is between 1 and 2^{length of string}
  \kevinkeith_capitalize:nn { #1 } { #2 }
 }

\cs_new_protected:Nn \kevinkeith_capitalize:nn
 {
  \int_step_inline:nnnn { 1 } { 1 } { \tl_count:n { #2 } }
   {
    \str_if_eq_x:nnTF { \tl_item:fn { \int_to_bin:n { #1 - 1 } } { -##1 } } { 1 }
     {
      \tl_upper_case:n { \tl_item:nn { #2 } { ##1 } }
     }
     {
      \tl_item:nn { #2 } { ##1 }
     }
   }
 }
\cs_generate_variant:Nn \tl_item:nn { f }
\ExplSyntaxOff


\begin{document}

\capitalizestring{1}{abc}
\capitalizestring{2}{abc}
\capitalizestring{3}{abc}
\capitalizestring{4}{abc}
\capitalizestring{5}{abc}
\capitalizestring{6}{abc}
\capitalizestring{7}{abc}
\capitalizestring{8}{abc}

\capitalizestring{523}{abcdefghij}

\end{document}

Answer 2

注意非常惯用的 L3，但是

\documentclass{article}

\def\zz#1{\xzz{}#1\relax}

\def\xzz#1#2#3\relax{%
\ifx\relax#3\relax
\zzdo{#1#2}%
\zzdo{#1\uppercase{#2}}%
\else
\xzz{#1#2}#3\relax
\xzz{#1\uppercase{#2}}#3\relax
\fi}

% define to do whatever
\def\zzdo#1{\fbox{#1} }
\begin{document}

\zz{abc}
\end{document}