| permomb. Permcomb´Â ÀÓÀÇÀÇ ¸ñ·ÏÀÇ ¼ø¿ ¹× Á¶ÇÕÀ» ¼öÇàÇϱâÀ§ÇÑ ¼ø¼öÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
permomb. ¼øÀ§ ¹× ¿ä¾à
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://tumblweed.org/
permomb. ű×
permomb. ¼³¸í
Permcomb´Â ¼ø¿ ¹× ÀÓÀÇ ¸ñ·ÏÀÇ Á¶ÇÕÀ» ¼öÇàÇϱâÀ§ÇÑ ¼ø¼öÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Permcomb´Â ÀÓÀÇ ¸ñ·ÏÀÇ ¼ø¿ ¹× Á¶ÇÕÀ» ¼öÇàÇϱâÀ§ÇÑ ¼ø¼öÇÑ Perl ¸ðµâÀÔ´Ï´Ù. ¾Ë°í¸®Áò :: Permute´Â N ¸¸ Nº¸´Ù outmÀ̹ǷΠÄÄÆÄÀÏÇؾßÇÕ´Ï´Ù. ÀÌ ¸ðµå´Â ¼ø¼öÇÑ perlÀ̸ç ÇÑ ¹ø¿¡ ¼ø¿ ¹× Á¶ÇÕÀ» Áö¿øÇÏ¸ç µ¿½Ã¿¡ µ¿ÀÏÇÑ °´Ã¼¿¡¼ ¹Ýº¹ÀûÀ¸·Î ¹× ¾çÂÊ ¸ðµÎ¿¡°Ô ¸¹Àº ¹®¼¸¦ ÀÛ¼ºÇÒ ½Ã°£ÀÌ ¾øÁö¸¸ ½Ã³ñ½Ã½ºÀÔ´Ï´Ù. lib 'xxxxxx¸¦ »ç¿ëÇϽʽÿÀ. ' # XXXXX´Â permcomb.pmuse permcomb; @list = define_some_list ()¸¦ ÀúÀåÇÏ·Á´Â À§Ä¡ÀÔ´Ï´Ù. # ÀÓÀÇ ¸ñ·Ï $ r = conced_r_at_a_time (); # r = $ # list, r = n $ p = »õ permcomb (@List, $ r); # ¸ñ·ÏÀ» Àü´ÞÇؾßÇÕ´Ï´Ù. # rÀº ¼±ÅÃÀûÀÔ´Ï´Ù. "npr ="ÀμâÇϽʽÿÀ. $ p -> npr (). "; n =". $ p -> n (). "; r =". $ p -> r (). "n"; foreach (1 .. $ p -> npr ()) {Àμ⠰¡ÀÔ ( ', $ p -> nextp ()). "n";} "ncr ="Àμâ. $ p -> ncr (). "; n =". $ p -> n (). "; r =". $ p -> r (). "n"; foreach (1 .. $ p -> ncr ()) {Àμ⠰¡ÀÔ ( ', $ p -> nextc ()). "n";} ncr () ¹× npr () È£ÃâÀº ÀϹÝÀûÀÎ °ªÀ» À§ÇØ ÆÐÅ°Áö¸¦ ÅëÇØ È£ÃâµË´Ï´Ù. permcomb :: ncr (5, 3); Ref¸¦ ÅëÇØ È£Ãâ µÉ ¶§ ÁÖ¾îÁø ¸ñ·Ï°ú rÀ» ±â¹ÝÀ¸·Î °ªÀ» ¹ÝȯÇÕ´Ï´Ù.
permomb. °ü·Ã ¼ÒÇÁÆ®¿þ¾î