15 lines
656 B
TeX
15 lines
656 B
TeX
\long\def\antefi#1#2\fi{#2\fi#1}
|
|
\def\fornum#1=#2to#3(#4){%
|
|
\edef#1{\number\numexpr#2}\edef\fornumtemp{\noexpand\fornumi\expandafter\noexpand\csname fornum\string#1\endcsname
|
|
{\number\numexpr#3}{\ifnum\numexpr#4<0 <\else>\fi}{\number\numexpr#4}\noexpand#1}\fornumtemp
|
|
}
|
|
\long\def\fornumi#1#2#3#4#5#6{\def#1{\unless\ifnum#5#3#2\relax\antefi{#6\edef#5{\number\numexpr#5+(#4)\relax}#1}\fi}#1}
|
|
\newcount\result
|
|
\def\multifact#1#2{%
|
|
\result=1
|
|
\fornum\multifactiter=#1 to 1(-#2){\multiply\result\multifactiter}%
|
|
\number\result
|
|
}
|
|
\fornum\degree=1 to 5(+1){Degree \degree: \fornum\ii=1 to 10(+1){\multifact\ii\degree\space\space}\par}
|
|
\bye
|