summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-11-14 21:04:10 +0000
committerKarl Berry <karl@freefriends.org>2023-11-14 21:04:10 +0000
commit921cdbd26fb0af5720b0a00b412cd9bd3cfb625a (patch)
tree44754e1da00f51657c99f9ce039a29ddb730179c /Master/texmf-dist/tex/latex/profcollege/PfCRangementNombres.tex
parent830ca3622cd4bfe82812703c57c3af1971150bf8 (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.tex41
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]%