KTUGFaq
![[http]](/wiki/imgs/http.png)
숫자를 문자로 바꾸어 덧셈을 흉내냅니다. 따라서 TeX의 연산 한계와는 상관업습니다.
아래의 코드를 예를 들어 설명하면, \add{187}{456}
- 주어진 피연산자를 각각 뒤집는다.
187 ==> 781 456 ==> 654
- 뒤집은 피연사자를 맨앞부터 더해나간다. 올림이 발생하면 다음으로 넘긴다.
7 8 1 + + + 6 5 4 ===> 346 + + 1 1 <-- 올림
- 결과를 다시 뒤집니다.
346 ==> 643
아래의 코드를 test.tex 정도로 저장한 후, 플레인텍 명령으로 tex test 로 test.dvi를 얻습니다.
%%% 매크로 시작
%%
\let\ea\expandafter
\newtoks\list
\newif\ifcontinue
\newcount\x \newcount\y \newcount\p
\def\fifo#1{\ifx\ofif#1\ofif\fi\process#1\fifo}
\def\ofif#1\fifo{\fi}
\def\lifo#1#2{\ifx\ofil#2 #1\ofil\fi\lifo{#2#1}}
\def\ofil#1\lifo#2{\fi}
\def\push#1{\edef\act{\noexpand\list={#1 \the\list}}\act}
\def\carry#1{\ifnum#1>9 \advance#1-10 \p=1 \else \p=0 \fi
\ea\push\number#1}
\def\nxte#1#2{
\def\pop##1##2\pop{\gdef#1{##2}\gdef#2{##1}}
\ea\pop#1\pop}
\def\xadd#1#2{\continuetrue
\loop
\ifx#1\empty\continuefalse\fi \ifx#2\empty\continuefalse\fi
\ifcontinue \nxte#1\nxtt \nxte#2\nxtu
\x=\nxtt \y=\nxtu \advance\x by\y \advance\x by\p \carry\x
\repeat
\let\opnd\opndn \ifx#1\empty \let\opnd\opndt \fi
\def\process##1{\y=##1 \advance\y by\p \carry\y}
\ea\fifo\opnd\ofif \ifnum\p=0 \else\number\p \fi}
\def\add#1#2{\list={}
\edef\opndn{\ea\lifo#1\ofil} \edef\opndt{\ea\lifo#2\ofil}
\xadd\opndn\opndt
\def\process##1{##1}\ea\fifo\the\list\ofif}
%%
%%% 매크로 끝
\def\foo{1129387423947923092384095783471029470395703492}
\def\bar{839583095823984723842734629852983472938472938473298}
\add{2}{3}
\add \foo\bar
\add\bar\foo
\add\foo{763823876}
\add{672687687612123587687828374682372468237982376525818763423846932846}\foo
\bye
.png ":)")
-- hermian 2008-05-21 07:29:16
