summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex')
-rw-r--r--macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex13
1 files changed, 13 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex b/macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex
index 3e2aa47db9..bea6d2d688 100644
--- a/macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex
+++ b/macros/latex/contrib/profcollege/latex/PfCSimplifierFraction.tex
@@ -316,4 +316,17 @@
\tofrac{#1/#2}
\fi
}%
+}%
+
+\NewDocumentCommand\LesDiviseursCommuns{mm}{%
+ \xdef\PfCListeDivComAvant{1}%
+ \xintFor* ##2 in {\xintSeq{2}{#1}}\do{%
+ \modulo{#1}{##2}\relax
+ \ifnum\remainder=0\relax%
+ \modulo{#2}{##2}\relax
+ \ifnum\remainder=0\relax%
+ \xdef\PfCListeDivComAvant{\PfCListeDivComAvant,##2}%
+ \fi%
+ \fi%
+ }%
}% \ No newline at end of file