summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/genmisc/longdiv.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/genmisc/longdiv.tex')
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/longdiv.tex53
1 files changed, 0 insertions, 53 deletions
diff --git a/Master/texmf-dist/tex/generic/genmisc/longdiv.tex b/Master/texmf-dist/tex/generic/genmisc/longdiv.tex
deleted file mode 100644
index 4c9a1d4fd16..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/longdiv.tex
+++ /dev/null
@@ -1,53 +0,0 @@
-% longdiv.tex v.1 (1994) Donald Arseneau
-%
-% Work out and print integer long division problems. Use:
-% \longdiv{numerator}{denominator}
-% The numerator and denominator (divisor and dividend) must be integers, and
-% the quotient is an integer too. \longdiv leaves a remainder.
-% Use this in any type of TeX.
-
-\newcount\gpten % (global) power-of-ten -- tells which digit we are doing
-\countdef\rtot2 % running total -- remainder so far
-\countdef\LDscratch4 % scratch
-
-\def\longdiv#1#2{%
- \vtop{\normalbaselines \offinterlineskip
- \setbox\strutbox\hbox{\vrule height 2.1ex depth .5ex width0ex}%
- \def\showdig{$\underline{\the\LDscratch\strut}$\cr\the\rtot\strut\cr
- \noalign{\kern-.2ex}}%
- \global\rtot=#1\relax
- \count0=\rtot\divide\count0by#2\edef\quotient{\the\count0}%\show\quotient
- % make list macro out of digits in quotient:
- \def\temp##1{\ifx##1\temp\else \noexpand\dodig ##1\expandafter\temp\fi}%
- \edef\routine{\expandafter\temp\quotient\temp}%
- % process list to give power-of-ten:
- \def\dodig##1{\global\multiply\gpten by10 }\global\gpten=1 \routine
- % to display effect of one digit in quotient (zero ignored):
- \def\dodig##1{\global\divide\gpten by10
- \LDscratch =\gpten
- \multiply\LDscratch by##1%
- \multiply\LDscratch by#2%
- \global\advance\rtot-\LDscratch \relax
- \ifnum\LDscratch>0 \showdig \fi % must hide \cr in a macro to skip it
- }%
- \tabskip=0pt
- \halign{\hfil##\cr % \halign for entire division problem
- $\quotient$\strut\cr
- #2$\,\overline{\vphantom{\big)}%
- \hbox{\smash{\raise3.5\fontdimen8\textfont3\hbox{$\big)$}}}%
- \mkern2mu \the\rtot}$\cr\noalign{\kern-.2ex}
- \routine \cr % do each digit in quotient
-}}}
-
-\endinput % Demonstration below:
-
-\noindent Here are some long division problems
-
-\indent
-\longdiv{12345}{13} \quad
-\longdiv{123}{1234} \quad
-\longdiv{31415926}{2} \quad
-\longdiv{81}{3} \quad
-\longdiv{1132}{99} \quad
-\longdiv{86491}{94}
-\bye