diff options
author | Karl Berry <karl@freefriends.org> | 2023-11-14 21:04:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-11-14 21:04:10 +0000 |
commit | 921cdbd26fb0af5720b0a00b412cd9bd3cfb625a (patch) | |
tree | 44754e1da00f51657c99f9ce039a29ddb730179c /Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex | |
parent | 830ca3622cd4bfe82812703c57c3af1971150bf8 (diff) |
profcollege (14nov23)
git-svn-id: svn://tug.org/texlive/trunk@68841 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex | 41 |
1 files changed, 24 insertions, 17 deletions
diff --git a/Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex b/Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex index e248c044013..1c48ab8efcc 100644 --- a/Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex +++ b/Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex @@ -11,9 +11,9 @@ \NewDocumentCommand\RangementListe{m}{% \readlist*\ListeRgt{#1}% - \xdef\Foo{\ListeRgt[1]} + \xdef\Foo{\ListeRgt[1]}% \xintFor* ##1 in{\xintSeq{2}{\ListeRgtlen}}\do{% - \xdef\Foo{\Foo,\ListeRgt[##1]} + \xdef\Foo{\Foo,\ListeRgt[##1]}% }% \xdef\Fooa{\Foo}% \xdef\PfCRetiensRangement{}% @@ -25,15 +25,21 @@ \xdef\PfCRetiensRangement{\Element}% }% \readlist*\RetiensListe{\Fooa}% - % La liste des rangements vaut \RetiensRangement.\par - % La retiensliste vaut \showitems\RetiensListe[]\par + %La liste des rangements vaut \RetiensRangement.\par + %La retiensliste vaut \showitems\RetiensListe[]\par \xdef\Fooi{}% + \xdef\PfCNombreFoisElementMini{0}% \foreachitem\rgt\in\RetiensListe{% % \rgtcnt~\RetiensListe[\rgtcnt] et \Element% - \xintifboolexpr{\RetiensListe[\rgtcnt]==\Element}{}{% - \xdef\Fooi{\Fooi,\RetiensListe[\rgtcnt]} + %POur gére les cas où le minimum apparaît plusieurs fois + \xintifboolexpr{\RetiensListe[\rgtcnt]==\Element}{% + \xdef\PfCNombreFoisElementMini{\fpeval{\PfCNombreFoisElementMini+1}}% + %Element mini =\Element -- \PfCNombreFoisElementMini\\ + \xintifboolexpr{\PfCNombreFoisElementMini>1}{\xdef\Fooi{\Fooi,\RetiensListe[\rgtcnt]}}{}% + }{% + \xdef\Fooi{\Fooi,\RetiensListe[\rgtcnt]}% }% - % La liste Fooi est \Fooi\par + % La liste Fooi est \Fooi\par }% \readlist*\ListeTempo{\Fooi}% \xintifboolexpr{\ListeTempolen>1}{% @@ -43,7 +49,7 @@ }% }{% % \xdef\Fooa{\ListeTempo[1]}% - \xdef\PfCRetiensRangement{\PfCRetiensRangement,\ListeTempo[1]} + \xdef\PfCRetiensRangement{\PfCRetiensRangement,\ListeTempo[1]}% }% % La liste Fooa vaut \Fooa\par }% @@ -59,7 +65,7 @@ \setsepchar[*]{,*/}\ignoreemptyitems% \readlist*\ListeRgt{#2}% % on cherche le d\'enominateur commun - \ppcm=1\relax + \ppcm=1\relax% \foreachitem\x\in\ListeRgt{% \PPCM{\fpeval{\ListeRgt[\xcnt,2]}}{\fpeval{\the\ppcm}}% }% @@ -79,7 +85,7 @@ }% }% }{% - \ensuremath{ + \ensuremath{% \xintFor* ##1 in{\xintSeq{0}{\fpeval{\PfCListeFinaleRgtlen-1}}}\do{% \xintifForFirst{}{\ifboolKV[ClesRgt]{Strict}{>}{\qeqslant}}\Simplification{\PfCListeFinaleRgt[\fpeval{\PfCListeFinaleRgtlen-##1}]}{\the\ppcm}}% }% @@ -98,16 +104,16 @@ }% }% }% - }% %%%%%%%%%%%%% + }% }{% \RangementListe{#2}% % % \PfCRetiensRangement% - \ifboolKV[ClesRgt]{Seul}{}{% - \readlist*\PfCListeFinaleRgt{\PfCRetiensRangement} - % \par \showitems\PfCListeFinaleRgt[] -- La longueur de la liste est \PfCListeFinaleRgtlen - \ifboolKV[ClesRgt]{Decroissant}{% - \ensuremath{% + \ifboolKV[ClesRgt]{Seul}{}{% + \readlist*\PfCListeFinaleRgt{\PfCRetiensRangement}% + % \par \showitems\PfCListeFinaleRgt[] -- La longueur de la liste est \PfCListeFinaleRgtlen + \ifboolKV[ClesRgt]{Decroissant}{% + \ensuremath{% \xintFor* ##1 in{\xintSeq{0}{\fpeval{\PfCListeFinaleRgtlen-1}}}\do{% \xintifForFirst{}{\ifboolKV[ClesRgt]{Strict}{>}{\geqslant}}\num{\PfCListeFinaleRgt[\fpeval{\PfCListeFinaleRgtlen-##1}]}% }% @@ -122,7 +128,8 @@ }% }% \reademptyitems - } +% +}% \NewDocumentCommand\Rangementold{om}{% \useKVdefault[ClesRgt]% |