| ¾Ë°í¸®Áò :: Hamming :: Perl. ¾Ë°í¸®Áò :: Hamming :: PerlÀº ´ÜÀÏ ºñÆ® ÀÚµ¿ ¿À·ù ¼öÁ¤À» À§ÇØ ECC ÇØ¹Ö ÀÎÄÚµùÀÇ Perl ±¸ÇöÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¾Ë°í¸®Áò :: Hamming :: Perl. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Brendan Gregg
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bdgregg/Net-SnoopLog-0.12/SnoopLog.pm
¾Ë°í¸®Áò :: Hamming :: Perl. ű×
¾Ë°í¸®Áò :: Hamming :: Perl. ¼³¸í
¾Ë°í¸®Áò :: Hamming :: PerlÀº ´ÜÀÏ ºñÆ® ÀÚµ¿ ¿À·ù ¼öÁ¤À» À§ÇØ ECC ÇØ¹Ö ÀÎÄÚµùÀÇ Perl ±¸ÇöÀÔ´Ï´Ù. ¾Ë°í¸®Áò :: Hamming :: PerlÀº ´ÜÀÏ ºñÆ® ÀÚµ¿ ¿À·ù ¼öÁ¤À» À§ÇØ ECC ÇØ¹Ö ÀÎÄÚµùÀÇ Perl ±¸ÇöÀÔ´Ï´Ù. Synopsisuse ¾Ë°í¸®Áò :: Hamming :: Perl QW (Hamming Filling); $ code = hamming ($ µ¥ÀÌÅÍ); # $ data $ data = encode ($ ÄÚµå); # µðÄÚµù ¹× ¼öÁ¤ ¿À·ù ($ µ¥ÀÌÅÍ, $ ¿À·ù) = ¸ØÃã ($ ÄÚµå); # + Return Error CountThis´Â ¿À·ù ¼öÁ¤ ÄÚµå ¸ðµâ, ÇØ¹Ö ÀÎÄÚµù ±¸Çö (8 ºñÆ® µ¥ÀÌÅÍ, 4 ºñÆ® ÇØ¹Ö - µ¥ÀÌÅÍ Å©±â°¡ 50 % Áõ°¡)µË´Ï´Ù. µ¥ÀÌÅÍ´Â ¹ÙÀÌÆ® ³»ÀÇ ´ÜÀÏ ºñÆ® ¿À·ù°¡ ÀÚµ¿À¸·Î Á¤Á¤µÇµµ·Ï ÀÎÄÚµù µÉ ¼ö ÀÖ½À´Ï´Ù. ÀÌ°ÍÀº ´ÜÀÏ ºñÆ® ¿À·ù°¡ ¿¹»óµÇ´Â µ¥ÀÌÅ͸¦ ÀúÀåÇϰųª Àü¼ÛÇϱâ Àü¿¡ ¿¹¹æ Á¶Ä¡·Î À¯¿ë ÇÒ ¼ö ÀÖ½À´Ï´Ù. 1948 ³â µ¿¾È Richard Hamming, Bell Labs°¡ ÀÎÄÚµùÀ» ¹ß¸íÇß½À´Ï´Ù. SubRoutineshamming (½ºÄ®¶ó) Á¦°øµÈ ÀÔ·Â Data.Unhamming (½ºÄ®¶ó)¿¡¼ ÇØ¹Ö Äڵ带 Á¦°ø ÇÑ ÇØ¹Ö ÄÚµåÀÇ ¿ø·¡ µ¥ÀÌÅ͸¦ ¹ÝȯÇÕ´Ï´Ù. ´ÜÀÏ ºñÆ® ¿À·ù´Â ÀÚµ¿ Á¤·ÄµË´Ï´Ù .Unhamming_err (½ºÄ®¶ó) Á¦°øµÈ ÇØ¹Ö Äڵ忡¼ ¿ø·¡ µ¥ÀÌÅ͸¦ ¹ÝȯÇÏ°í ¼öÁ¤ µÈ ¹ÙÀÌÆ® ¼ö¸¦ °è»êÇÏ´Â ¼ýÀÚ¸¦ ¹ÝȯÇÕ´Ï´Ù. ´ÜÀÏ ºñÆ® ¿À·ù´Â ÀÚµ¿ ¼öÁ¤ÀÔ´Ï´Ù. ´Ù¸¥ ¼ºê ·çƾ ¾Ë°í¸®Áò :: Hamming :: Perl :: Hamming_faster () ÇÁ·Î±×·¥ÀÇ ½ÃÀ۽à ÇÑ ¹ø ½ÇÇàµÇ´Â °æ¿ì ÇØ¸Ó ÀÎÄÚµù ¼Óµµ¸¦ ³ôÀÏ ¼öÀÖ´Â ¼±ÅÃÀû ¼ºê ·çƾÀÔ´Ï´Ù. »çÀü ó¸® µÈ °á°úÀÇ ´õ Å« (ÇؽÃ) ij½Ã¸¦ »ç¿ë ÇÏ¿©ÀÌ ÀÛ¾÷À» ¼öÇàÇÕ´Ï´Ù. ´ÜÁ¡Àº ´õ ¸¹Àº ¸Þ¸ð¸®¸¦ »ç¿ëÇÏ°í È£Ã⠽𣿡 ¸î Ãʸ¦ Ãß°¡ ÇÒ ¼ö ÀÖ´Ù´Â °ÍÀÔ´Ï´Ù. 1MB ÀÌ»óÀÇ Data.Requirements¸¦ ÀÎÄÚµùÇÏ´Â °æ¿ì¿¡¸¸ÀÌ ¿É¼ÇÀ» »ç¿ëÇϽʽÿÀ. ¡¤ Perl ¡¤ Extutils :: MakeMakeInstallation Perl Makefile.pl ¸¸µé±â Å×½ºÆ® Å×½ºÆ®¸¦ ¼³Ä¡ÇϽʽÿÀ.
¾Ë°í¸®Áò :: Hamming :: Perl. °ü·Ã ¼ÒÇÁÆ®¿þ¾î