expl3 : passer une séquence comme argument

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
\documentclass{article}
\usepackage{xparse}
\ExplSyntaxOn
\cs_new:Nn \SetOp_reunion_seq:N {
  \seq_use:Nn #1 {*}
}
\cs_new:Nn \SetOp_reunion:n {
  \seq_gset_from_clist:Nn \g_tmpa_seq {#1}
  \SetOp_reunion_seq:N \g_tmpa_seq
}
\cs_new:Nn \SetOp_simplify_reunion:n
{
  \seq_gset_from_clist:Nn \g_tmpa_seq {#1}
  \seq_remove_duplicates:N \g_tmpa_seq
  \g_tmpa_seq
}
\NewDocumentCommand{\reunion}{ }{ \SetOp_reunion:n }
\NewDocumentCommand{\simplifierreunion}{ m }
{
  \seq_gset_from_clist:Nn \g_tmpa_seq {#1}
  \seq_remove_duplicates:N \g_tmpa_seq
  \seq_use:Nn \g_tmpa_seq {*}
}
\ExplSyntaxOff
\begin{document}
\reunion{A} \qquad
\reunion{A, B} \qquad
\reunion{A, B, C}
\simplifierreunion{A, B, B, C, A}
\end{document}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX