ü½º :: °ÔÀÓ

ü½º :: °ÔÀÓÀº ü½º °ÔÀÓÀÇ ¿òÁ÷ÀÓÀ» ±â·ÏÇÏ°í À¯È¿¼ºÀ» °Ë»çÇÏ´Â ¼ö¾÷ÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

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

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Brian Richardson
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~bjr/Chess-0.6.0/lib/Chess/Game/MoveList.pm

ü½º :: °ÔÀÓ Å±×


ü½º :: °ÔÀÓ ¼³¸í

ü½º :: °ÔÀÓÀº ü½º °ÔÀÓÀÇ ¿òÁ÷ÀÓÀ» ±â·ÏÇÏ°í À¯È¿¼ºÀ» °Ë»çÇÏ´Â ¼ö¾÷ÀÔ´Ï´Ù. ü½º :: °ÔÀÓÀº ü½º °ÔÀÓÀÇ ¿òÁ÷ÀÓÀ» ±â·ÏÇÏ°í À¯È¿¼ºÀ» °Ë»çÇÏ´Â ¼ö¾÷ÀÔ´Ï´Ù .Synopsis ü½º :: °ÔÀÓÀ» »ç¿ëÇϽʽÿÀ. $ game = ü½º :: °ÔÀÓ -> new (); $ clone = $ game-> clone (); $ move = $ game-> make_move ( "e2", "e4"); $ move_c = $ clone-> make_move ( "e2", "e4"); $ true = ($ move-> get_piece () ne $ move_c-> get_piece ()); $ move = $ game-> delete_move (); ... while (! Á¤ÀÇ ($ result = $ game-> °á°ú ())) {# $ move = $ game-> make_move ($ sq1, $ sq2); if (! Á¤ÀÇ ($ À̵¿)) {Àμâ $ °ÔÀÓ -> get_message (); }} if ($ result == 1) {print "white wins! n"; } ELSIF ($ result == 0) {Àμâ "±×¸®±â! else {print"black wins! n "; } ü½º ¸ðµâÀº PerlÀÌÀִ ü½º ÇÁ·Î±×·¥À» ÀÛ¼ºÇϱâÀ§ÇÑ ÇÁ·¹ÀÓ ¿öÅ©¸¦ Á¦°øÇÕ´Ï´Ù. ÀÌ Å¬·¡½º´Â ÇØ´ç ÇÁ·¹ÀÓ ¿öÅ©ÀÇ ÀϺθ¦ ±¸¼ºÇÏ¿© ü½º :: °ÔÀÓ Å¬·¡½º¸¦ »ç¿ëÇÏ¿© ±â·Ï µÈ ¸ðµç À̵¿¿¡ ´ëÇÑ À̵¿ À¯È¿¼º °Ë»ç¸¦ Á¦°øÇÕ´Ï´Ù. °ÔÀÓ¿¡´Â ü½º :: º¸µå, 32 °³ÀÇ Ã¼½º :: Á¶°¢°ú ü½º :: °ÔÀÓ :: °ÔÀÓ :: °ÔÀÓ :: °ÔÀÓÀÇ Á¤È®ÇÑ »óŸ¦ ±â·ÏÇÏ´Â ÀÏ·ÃÀÇ Ã¼½º :: °ÔÀÓ :: Movelistentrys°¡ ÁøÇàµÊ¿¡ µû¶ó ¿òÁ÷ÀÌ´Â ¿òÁ÷ÀÓÀº ´Ü¼øÇÑ ¿òÁ÷ÀÓ Á¶ÀÛÀ» Çã¿ëÇϱâ À§ÇØ ÇÑ ¹ø¿¡ ÇÑ ¹ø¿¡ ´Ù½Ã °¡Á®°¥ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


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