°ÔÀÓ :: µÚÁ×¹ÚÁ×

À縲 ´Ü¾î ÆÛÁñ ¸¸µé±â ¹× ÇØ°á
Áö±Ý ´Ù¿î·Îµå

°ÔÀÓ :: µÚÁ×¹ÚÁ× ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Douglas Sparling
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://www.dougsparling.com

°ÔÀÓ :: µÚÁ×¹ÚÁ× Å±×


°ÔÀÓ :: µÚÁ×¹ÚÁ× ¼³¸í

µÚ¼¯¾î ´Ü¾î ÆÛÁñÀ» ¸¸µé°í ÇØ°áÇϽʽÿÀ °ÔÀÓ :: jumbleÀº jumble ´Ü¾î ÆÛÁñÀ» ¸¸µé°í ÇØ°áÇÏ´Â µ¥ »ç¿ëµÇ´Â perl ¸ðµâÀÔ´Ï´Ù. Á¤¼öÀû ÀÎ °ÔÀÓ :: jumbleÀº »çÀü¿¡¼­ ¹«ÀÛÀ§·Î 5 °³ÀÇ 6 ÀÚ¶û ´Ü¾î¸¦ ¸¸µì´Ï´Ù. ÇâÈÄ ¹öÀüÀÇ °ÔÀÓ :: JumbleÀº »ç¿ëÀÚ°¡ Á¤ÀÇÇÑ ´Ü¾î ÆÄÀÏÀ» »ç¿ëÇÏ¿© »ç¿ëÀÚ Á¤ÀÇ Word ÆÄÀÏÀ» »ç¿ëÇÏ¿© »ç¿ëÀÚ Á¤ÀÇ jumbles¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. jumble_word () method.default ´Ü¾î ¼ö¸¦ »ç¿ëÇÏ¿© ÀÓÀÇÀÇ ±æÀÌÀÇ °³º° ´Ü¾î´Â 5. ±âº» »çÀüÀÌ '/ usr / dict / words'ÀÔ´Ï´Ù. »çÀü ÆÄÀÏ¿¡´Â ÁÙ´ç ÇÑ ´Ü¾î°¡ Æ÷ÇԵǾî¾ßÇÕ´Ï´Ù. »ç¿ë½Ã °ÔÀÓ :: µÚÁ×¹ÚÁ×; My $ Jumble = Games :: Jumble-> new (); $ jumble-> set_num_words (6); $ jumble-> set_word_lengths_allowed (5,6); $ jumble-> set_word_lengths_not_allowed (7,8); $ jumble-> set_dict ( '/ home / doug / crossword_dict / unixdict.txt'); my @jumble = $ jumble-> create_jumble; Foreach My $ Word (@jumble) {$ word \ n "; } # @good_words = $ jumble-> solve_word ( 'rta'); if (@ good_words) {foreach my $ good_word (@ good_words) {$ good_word \ n "; }} else {print "no words no no no no no no no no no no no no no no no no no no no no found \ n"; } # $ word = 'camel'À» ¸¸µå´Â °É¸²µ¹ ´Ü¾î ¸¸µé±â; MY $ jumbled_word = $ jumble-> jumble_word ($ ´Ü¾î); Àμâ "$ jumbled_word ($ word) \ n"; ¿ä±¸ »çÇ× : ¡¤ Perl.


°ÔÀÓ :: µÚÁ×¹ÚÁ× °ü·Ã ¼ÒÇÁÆ®¿þ¾î