| ¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour. ºñÆ®·Î´Ð Åõ¾î·Î À¯Å¬¸®µå ¿©Çà - ¼¼ÀÏÁî¸Ç ¹®Á¦ ÇØ°á |
Áö±Ý ´Ù¿î·Îµå |
¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- John J. Trammell
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jtrammell/
¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour. ű×
¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour. ¼³¸í
ºñÆ®·Î´Ð Åõ¾î¿¡¼ À¯Å¬¸®µå ¿©Çà - ¼¼ÀÏÁî¸Ç ¹®Á¦ ÇØ°á ¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour´Â ºñÆ®·Î´Ð ŽÇèÀ¸·Î À¯Å¬¸®µå ¿©Çà - ¼¼ÀÏÁî¸Ç ¹®Á¦¸¦ ÇØ°áÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis Algorithm :: TravelingSalesman :: BitonicTour; MY $ BT = ¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour-> New; $ bt-> add_point ($ x1, $ y1); $ bt-> add_point ($ x2, $ y2); $ bt-> add_point ($ x3, $ y3); # ... ÇÊ¿ä¿¡ µû¶ó ´Ù¸¥ Á¡ Ãß°¡ ... # ¼Ö·ç¼ÇÀ» ¾ò°í ÀμâÇϽʽÿÀ My ($ len, @coords) = $ bt-> ÇØ°á; Àμâ "ÃÖÀûÀÇ °æ·Î ±æÀÌ : $ len \ n"; "ÃÖÀû °æ·ÎÀÇ ÁÂÇ¥ : \ n"À» ÀμâÇϽʽÿÀ; @CoordsÀÇ °æ¿ì "($ _-> , $ _-> \ n") Àμâ; ¿ä±¸ »çÇ× : ¡¤ Perl.
¾Ë°í¸®Áò :: TravelingSalesman :: BitonicTour. °ü·Ã ¼ÒÇÁÆ®¿þ¾î