我期望在里面有这个\clist_map
,但在这个代码中没有。“假”问题,可能是...
\documentclass{article}
\usepackage{xparse}
\ExplSyntaxOn
\NewDocumentCommand{\pairwise}{mmm}{
\clist_set_eq:NN \l_tmpa_clist #1
\clist_set_eq:NN \l_tmpb_clist #2
\clist_clear:N #3
\bool_until_do:nn {\clist_if_empty_p:N \l_tmpa_clist}{
\clist_pop:NN \l_tmpa_clist \l_tmpa_tl
\clist_pop:NN \l_tmpb_clist \l_tmpb_tl
\clist_put_right:Nn #3 {\l_tmpa_tl / \l_tmpb_tl}
}
}
\ExplSyntaxOff
\begin{document}
\def\this{1,2,3,4,5}
\def\that{a,b,c,d,e}
There is \{\this\} and \{\that\}.
\pairwise{\this}{\that}{\result}
\def\expected{1/a,2/b,3/c,4/d,5/e}
Why \{\result\} not equal \{\expected\}?
\end{document}
答案1
该命令\clist_put_right:Nn
将在输入中保留\l_tmpa_tl
,即在调用时\result
检查相等性,\l_tmpa_tl
包含5
和\l_tmpb_tl
包含e
。
但是,要获取成对内容,必须评估(扩展)和X/Y
的当前值并将其存储到变量中,因此请使用以下类型:\l_tmpa_tl
\l_tmpb_tl
\clist
x
\clist_put_right:Nx #3 {\l_tmpa_tl/\l_tmpb_tl}
列表很可能\seq
会更快,但这取决于用例。
\documentclass{article}
\usepackage{xparse}
\ExplSyntaxOn
\NewDocumentCommand{\pairwise}{mmm}{
\clist_set_eq:NN \l_tmpa_clist #1
\clist_set_eq:NN \l_tmpb_clist #2
\clist_clear:N #3
\bool_until_do:nn {\clist_if_empty_p:N \l_tmpa_clist}{
\clist_pop:NN \l_tmpa_clist \l_tmpa_tl
\clist_pop:NN \l_tmpb_clist \l_tmpb_tl
\clist_put_right:Nx #3 {\l_tmpa_tl / \l_tmpb_tl}
}
}
\ExplSyntaxOff
\begin{document}
\def\this{1,2,3,4,5}
\def\that{a,b,c,d,e}
There is \{\this\} and \{\that\}.
\pairwise{\this}{\that}{\result}
\def\expected{1/a,2/b,3/c,4/d,5/e}
Now \{\result\} is equal to \{\expected\}?
\end{document}
答案2
你必须使用价值标记列表变量,而不是标记列表。
这是一个使用序列和的不同方法\seq_mapthread_function:NNN
,它遍历两个序列并将项目交给一个双参数函数。
您可以将不同的输出分隔符作为 '\pairwise 的可选参数,例如
\pairwise[|]{a,b}{1,2}{\result}
将定义\result
为a/1|b/2
。
\documentclass{article}
\usepackage{xparse}
\ExplSyntaxOn
\NewDocumentCommand{\pairwise}{O{,}mmm}
{
\seq_set_from_clist:No \l_komarov_first_seq { #2 }
\seq_set_from_clist:No \l_komarov_second_seq { #3 }
\seq_clear:N \l_komarov_output_seq
\seq_mapthread_function:NNN
\l_komarov_first_seq
\l_komarov_second_seq
\komarov_addentry:nn
\tl_set:Nx #4 { \seq_use:Nn \l_komarov_output_seq { #1 } }
}
\seq_new:N \l_komarov_first_seq
\seq_new:N \l_komarov_second_seq
\seq_new:N \l_komarov_output_seq
\cs_generate_variant:Nn \seq_set_from_clist:Nn { No }
\cs_new_protected:Nn \komarov_addentry:nn
{
\seq_put_right:Nn \l_komarov_output_seq { #1 / #2 }
}
\ExplSyntaxOff
\begin{document}
\newcommand\this{1,2,3,4,5}
\newcommand\that{a,b,c,d,e}
There is \{\this\} and \{\that\}.
\pairwise{\this}{\that}{\result}
\newcommand\expected{1/a,2/b,3/c,4/d,5/e}
Now \{\result\} equals \{\expected\}
\pairwise{1,2,3,4,5}{a,b,c,d,e}{\newresult}
Also \{\newresult\} equals \{\expected\}
\end{document}