| °ÔÀÓ :: ¾ËÆÄ º£Å¸ °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º·Î °ÔÀÓ Æ®¸® °Ë»ö |
Áö±Ý ´Ù¿î·Îµå |
°ÔÀÓ :: ¾ËÆÄ º£Å¸ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Stig Brautaset
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~stig/Games-AlphaBeta-0.4.6/lib/Games/AlphaBeta/Reversi.pm
°ÔÀÓ :: ¾ËÆÄ º£Å¸ ű×
°ÔÀÓ :: ¾ËÆÄ º£Å¸ ¼³¸í
°´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â °ÔÀÓ Æ®¸® °Ë»ö °ÔÀÓ :: ¾ËÆĺªÀº °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â °ÔÀÓ Æ®¸® °Ë»ö Ŭ·¡½ºÀÔ´Ï´Ù. Synopsis ÆÐÅ°Áö My :: Gamepos; ±âº» QW (°ÔÀÓ :: ¾ËÆĺª :: À§Ä¡)¸¦ »ç¿ëÇϽʽÿÀ. # INITIALISISE ½ÃÀÛ À§Ä¡ SUB _INIT {...} # °ÔÀÓ¿¡ ÇÊ¿äÇÑ ¹æ¹ý :: ¾ËÆĺª SUB APPLY {...} SUB ENDPOS {...} # ¿É¼Ç ÇÏÀ§ Æò°¡ {...} SUB FindMoves {...} # °ÔÀÓ¿¡¼ À§Ä¡¸¦ ±×¸³´Ï´Ù (¼±Åà »çÇ×) ¼ºê µå·Î¿ì {...} ÆÐÅ°Áö ¸ÞÀÎ; ³» $ POS = MY :: Gamepos-> New; My $ Game = °ÔÀÓ :: ¾ËÆĺª -> »õ ($ POS); µ¿¾È ($ game-> abmove) {Àμ⠱׸®±â ($ game-> peek_pos); } °ÔÀÓ :: ¾ËÆÄ º£Å¸´Â ¾ËÆĺª °ÔÀÓ Æ®¸® °Ë»ö ¾Ë°í¸®Áò (¾ËÆÄ º£Å¸ °¡Áö Ä¡±â·Î ¹Ì´Ï ¸Æ½º °Ë»öÀ̶ó°íµµ ÇÔ)ÀÇ ÀÏ¹Ý ±¸ÇöÀ» Á¦°øÇÕ´Ï´Ù. ÀÌ ¾Ë°í¸®ÁòÀº ¿Ïº®ÇÑ Á¤º¸°¡ÀÖ´Â µÎ Ç÷¹À̾î, Á¦·Î ÇÕ °ÔÀÓ¿¡¼ ƯÁ¤ À§Ä¡¿¡¼ °¡Àå ÁÁÀº À§Ä¡¿¡¼ °¡Àå ÁÁÀº À§Ä¡¸¦ ã´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ·¯ÇÑ °ÔÀÓÀÇ ¿¹·Î´Â ü½º, ¿Àµ¨·Î, Connect4, Go, Tic-Tac-Toe ¹× ¸¹Àº ´Ù¸¥ BoardGames°¡ Æ÷ÇԵ˴ϴÙ. »ç¿ëÀÚ´Â °ÔÀÓÀÇ Ãʱ⠻óŸ¦ »õ·Î¿î ()ÀÇ Ã¹ ¹ø° Àμö·Î ³ªÅ¸³»´Â °´Ã¼¸¦ Àü´ÞÇؾßÇÕ´Ï´Ù. ÀÌ °´Ã¼´Â copy (), apply (), endpos (), expluate () ¹× findmoves ()¸¦ Á¦°øÇؾßÇÕ´Ï´Ù. ÀÌ°ÍÀº °ÔÀÓ¿¡¼ ´õ ½ÅÁßÇÏ°Ô ¼³¸íµË´Ï´Ù :: Alphabeta :: Position À§Ä¡ °´Ã¼¸¦ ±¸ÇöÇÏ´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â ±âº» Ŭ·¡½º ÀÎ À§Ä¡. ¿ä±¸ »çÇ× : ¡¤ Perl.
°ÔÀÓ :: ¾ËÆÄ º£Å¸ °ü·Ã ¼ÒÇÁÆ®¿þ¾î