KTUGFaq

KTUG FAQ

"Armstrong Numbers"에 댓글 더하기

로그인:
비밀번호:
가입
Your mode of life will be changed for the better because of good news soon.
FrontPage › LittleTree/ReadingTeXbook/2006-09
Nov 24, 2006
Armstrong Numbers
Submitted by 작은나무 @ 11-24 [11:37 pm]
Pluperfect DigitalInvariants(PPDI) 혹은 Armstrong Numbers 라고 불리는 수들이 있습니다. 다음이 바로 그러한 수들인데,



잘 살펴보면 재미있는 특성이 있습니다. 153을 예를 들어 설명하면, 153은 세자리 수이며, 각 자리수를 세제곱하여 모두 더하면 원래의 수인 153이 되는 것입니다. 다른 모든 수들도 마찬가지입니다. :)

PPDI 모양을 만들어주는 TeX 매크로를 만들어 보았습니다. 오랜만에 작은나무의 애용(?) 매크로인 \fifo ... \ofif를 이용했습니다.

\newcount\cnt \newcount\length \def\fifo#1{\ifx\ofif#1\ofif\fi \process#1\fifo} \def\ofif#1\fifo{\fi} \def\ppdi#1{\cnt=0 \def\process##1{\advance\cnt by1 } \fifo #1\ofif \length=\cnt \def\process##1{\advance\cnt by-1 ##1^{\number\length}\ifnum\cnt>0 +\fi } $#1 = \fifo #1\ofif$}

위와 같은 \ppdi 매크로를 정의하고 \ppdi{153} 하면 153에 해당하는 PPDI 모양이 만들어 집니다. 참고로 가장 긴 수는 그 자리수가 39자리나 되는 수입니다. 아래의 두 수입니다.

115132219018763992565095597973971522400 115132219018763992565095597973971522401

그럼 한 번 살펴볼까요? :)


이름:

서명하지 않기
 

^
Valid XHTML 1.0! Valid CSS! powered by MoniWiki
last modified 2006-11-24 23:37:54
Processing time 2.7413 sec