KTUGFaq

KTUG FAQ

"Armstrong Numbers"¿¡ ´ñ±Û ´õÇϱâ

·Î±×ÀÎ:
ºñ¹Ð¹øÈ£:
°¡ÀÔ
Don't be overly suspicious where it's not warranted.
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.4621 sec