%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % longdiv.4ht 2009-05-21-09:32 % % Copyright (C) 2002--2009 Eitan M. Gurari % % % % This work may be distributed and/or modified under the % % conditions of the LaTeX Project Public License, either % % version 1.3c of this license or (at your option) any % % later version. The latest version of this license is % % in % % http://www.latex-project.org/lppl.txt % % and version 1.3c or later is part of all distributions % % of LaTeX version 2005/12/01 or later. % % % % This work has the LPPL maintenance status "maintained".% % % % This Current Maintainer of this work % % is Eitan M. Gurari. % % % % If you modify this program your changing its signature % % with a directive of the following form will be % % appreciated. % % \message{signature} % % % % gurari@cse.ohio-state.edu % % http://www.cse.ohio-state.edu/~gurari % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \immediate\write-1{version 2009-05-21-09:32} \def\longdiv#1#2{{% \def\showdig{\edef\temp{&{\the\scratch}}\temp\cr &{\the\rtot}\cr}% \global\rtot=#1\relax \count0=\rtot\divide\count0by#2\edef\quotient{\the\count0}% \def\temp##1{\ifx##1\temp\else \noexpand\dodig ##1\expandafter\temp\fi}% \edef\routine{\expandafter\temp\quotient\temp}% \def\dodig##1{\global\multiply\gpten by10\relax}\global\gpten=1\relax\routine \def\dodig##1{\global\divide\gpten by10\relax \scratch =\gpten \multiply\scratch by##1\relax \multiply\scratch by#2\relax \global\advance\rtot-\scratch \relax \ifnum\scratch>0 \showdig \fi }% \a:longdiv \long:div{#2}\b:longdiv }} \catcode`\#=13 \catcode`\@=6 \def\long:div@1{\halign{#&#\cr &\quotient\cr @1&\the\rtot\cr \routine \cr }} \catcode`\#=6 \catcode`\@=11 \NewConfigure{longdiv}{2} \Hinput{longdiv} \endinput