¾Ë°í¸®Áò :: ÇãÇÁ¸¸

¾Ë°í¸®Áò :: HuffmanÀº ÇãÇÁ¸¸ ¾Ë°í¸®ÁòÀ» ±¸ÇöÇÏ´Â Perl È®ÀåÀÚÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

¾Ë°í¸®Áò :: ÇãÇÁ¸¸ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Janek Schleicher
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~bigj/

¾Ë°í¸®Áò :: ÇãÇÁ¸¸ ű×


¾Ë°í¸®Áò :: ÇãÇÁ¸¸ ¼³¸í

¾Ë°í¸®Áò :: HuffmanÀº ÇãÇÁ¸¸ ¾Ë°í¸®ÁòÀ» ±¸ÇöÇÏ´Â Perl È®ÀåÀÚÀÔ´Ï´Ù. ¾Ë°í¸®Áò :: HuffmanÀº Huffman AlgorithmÀ» ±¸ÇöÇÏ´Â Perl È®ÀåÀÚÀÔ´Ï´Ù .Synopsis »ç¿ë ¾Ë°í¸®Áò :: Huffman; my % char_counting = ¸Ê {$ _ => int rand (100)} ( 'a'.. 'z', 'a'.. 'z'); # ¶Ç´Â ij¸¯ÅÍÀÇ ½ÇÁ¦ °è»êÀÌ ´õ ³ªÀº Huffman ¾Ë°í¸®ÁòÀÌ ¹«ÀÛÀ§ µ¥ÀÌÅÍ·Î Àß ÀÛµ¿ÇÏÁö ¾ÊÀ¸¹Ç·Î :-)) My $ Huff = ¾Ë°í¸®Áò :: Huffman-> New (% char_counting); ³» $ encode_hash = $ huff-> encode_hash; MY $ DECODE_HASH = $ HUPH-> DECODE_HASH; ³» $ encode_of_hello = $ huff-> encode_bitstring ( "hello"); "hello 'ÀÇ ÀÎÄÚµù ºñÆ®¸¦ ºÁ": $ encode_of_hellon "À» ÂüÁ¶ÇϽʽÿÀ. "$ encode_of_helloÀÇ µðÄÚµùÀº '", $ huff-> decode_bitstring ($ encode_of_hello), "'"ÀÔ´Ï´Ù.ÀÌ ¸ðµâÀº ÇãÇÁ¸¸ ¾Ë°í¸®ÁòÀ» ±¸ÇöÇÕ´Ï´Ù. ¸ñÇ¥´Â ´Ù¸¥ ¹®ÀÚ (¶Ç´Â ½ÉÁö¾î ¹®ÀÚ¿­)ÀÇ ÁÖ¾îÁø ¸ñ·Ï¿¡ ´ëÇÑ ÁÁÀº ÄÚµù ü°è¸¦ ¸¸µå´Â °ÍÀÔ´Ï´Ù. ±×·¯³ª ¾Ë°í¸®ÁòÀº ¸ðµç ÈǸ¢ÇÑ ¾Ë°í¸®Áò°ú °°½À´Ï´Ù. ¸Å¿ì easy.Assume ¿ì¸®´Â ÈüÀ» °¡Áö°í ÀÖ½À´Ï´Ù (Å°´Â ¹®ÀÚ / ¹®ÀÚ¿­ÀÔ´Ï´Ù. °ªÀº ¹ß»ýÇÕ´Ï´Ù). ¾Ë°í¸®ÁòÀÇ °¢ ´Ü°è¿¡¼­ µÎ °³ÀÇ °¡Àå Èñ¹ÌÇÑ ¹®ÀÚ°¡ º¸ÀÔ´Ï´Ù. µÑ ´Ù Á¢¹Ì»ç (ÇϳªÀÇ "0", ´Ù¸¥ "1")À» ¾ò½À´Ï´Ù. ±×µéÀº ÇÔ²² ÇÕÃÄÁö¸ç ±× ½Ã°£ºÎÅÍ ÈüÀÇ ÈüÀÇ "¿ä¼Ò"·Î ÀϾ °ÍÀÔ´Ï´Ù. °¡ÀÔÀº ÈüÀÌ Ãà¼ÒµÇ´Â µ¿¾È ¼ºÀåÇÏ´Â ³ª¹«¸¦ ¸¸µì´Ï´Ù. ÁÖ¾îÁø °ÍÀº ij¸¯ÅÍ¿Í ¹ß»ýÀÔ´Ï´Ù. A (15) B (7) C (6) d (6) e (5) ù ¹ø° ´Ü°è¿¡¼­´Â °¡Àå Èñ±Í ÇÑ ¹®ÀÚ À̹ǷÎÀÌ »õ·Î¿î Èü°ú ³ª¹« ±¸Á¶¸¦ ¸¸µì´Ï´Ù : a (15) de (11) B (7) C (6) DE / "0"/ "1"D eEGT ´Ü°è : A (15) BC (13) de (11) DE BC / / "0"/ "1" "0"/ "1 "DEB CNEXT ´Ü°è : A (15) BCDE (24) BCDE /"0 "/"1 ""0 "/"1 ""0 "/"1 "DEB CNEXT ½ºÅÜÀº ³ª¸ÓÁö¸¦ ÅëÇÕÇÕ´Ï´Ù : ÇãÇÁ¸¸ - Ç¥ / "0"/ "1"/ / bcde a / "0"/ "1"/ de bc / "0"/ "1" "0"/ "1"deb cfinallyÀÌ ÀÎÄÚµù Å×À̺íÀº »ý¼ºµË´Ï´Ù. 1 B 010 C 011 D000 E 001 Æ®¸®ÀÇ ¿ä¼Ò°¡ ¿ÞÂÊ ¶Ç´Â ¿À¸¥ÂÊÀ¸·Î Á¤ÀÇÇÏ´Â ¿ä¼Ò¸¦ Á¤ÀÇÇÏ´Â ±ÔÄ¢ÀÌ ¾ø½À´Ï´Ù. µû¶ó¼­ ¿¹¸¦ µé¸é °¡´ÉÇÕ´Ï´Ù. ÄÚµù ¹æ½Ä : 0 B 100 C 101 D 110 E 111 ¿ä±¸ »çÇ× : ¡¤ Perl.


¾Ë°í¸®Áò :: ÇãÇÁ¸¸ °ü·Ã ¼ÒÇÁÆ®¿þ¾î