°ÔÀÓ :: üĿ

°ÔÀÓ :: °Ë»ç±â´Â üĿ °ÔÀÓÀ» ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

°ÔÀÓ :: üĿ ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

°ÔÀÓ :: üĿ ű×


°ÔÀÓ :: üĿ ¼³¸í

°ÔÀÓ :: üĿ´Â üĿ °ÔÀÓÀ» ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Ã³ñ½Ã½º # Automatical Computer-Vus-Computer Play ½ºÅ©¸³Æ® »ç¿ë °ÔÀÓ :: °Ë»ç±â :: »ó¼ö; °ÔÀÓ :: üĿ :: º¸µå; °ÔÀÓ :: üĿ :: BoardTree; ³» $ Board = »õ·Î¿î °ÔÀÓ :: üĿ :: º¸µå; ³» $ color = Èò»ö; ³» $ nummoves = 0; $ Board-> ´ýÇÁ Àμâ; ($ Board-> CanColorMove ($ color)) {¼ö¸é (2); # °¢ Ç÷¹À̾ ´ëÇÑ 100 °³ÀÇ ¿òÁ÷ÀÓÀÌ $ NUMMoves ++ + += 200¿¡ ´ëÇØ "Automatical Draw"¶óÀÌÁî¿¡ ´ëÇØ Çã¿ëÇϽʽÿÀ. My $ BoardTree = New Games :: Checkers :: BoardTree ($ Board, $ color, 2); # 2 ´Ü°è ¾Õ¼­ ³ªÀÇ $ move = $ boardtree-> ¼±Åà vestmove; # oR : ChooserandomMove $ Board-> º¯Çü ($ À̵¿); $ move-> ´ýÇÁ, "n", $ board-> ´ýÇÁ; $ color = ($ color == white)? °ËÁ¤, Èò»ö; } "n", ($ color == white = white? "black": "Èò»ö"), "won.n"; Ãß»ó ^ games :: Checkers´Â üĿ °ÔÀÓ Ç÷¹À̸¦ ±¸ÇöÇÏ´Â Perl Ŭ·¡½º ¼¼Æ®ÀÔ´Ï´Ù. ¿©·¯ ±¹°¡ ±ÔÄ¢ º¯ÇüÀÌ Áö¿øµË´Ï´Ù. ±âº»ÀûÀÎ AI ÈÞ¸®½ºÆ½Àº MiniMax ¾Ë°í¸®ÁòÀ» »ç¿ëÇÏ¿© ±¸ÇöµË´Ï´Ù. ÀÌÀü¿¡ ³ìÀ½ µÈ °ÔÀÓÀÇ Àç»ýÀÌ Áö¿øµË´Ï´Ù. ÀϺΠ±â´ÉÀº ¾ÆÁ÷ ±¸ÇöµÇÁö ¾Ê¾Ò½À´Ï´Ù.


°ÔÀÓ :: üĿ °ü·Ã ¼ÒÇÁÆ®¿þ¾î