| ¼öÇÐ :: °áÇÕ±â MATH :: COMPINATORICS´Â ¸ñ·Ï¿¡¼ Á¶ÇÕ ¹× ¼ø¿À» ¼öÇà ÇÒ ¼öÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¼öÇÐ :: °áÇձ⠼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~birney/bioperl-1.4/Bio/DB/GFF/Aggregator/ucsc_genscan.pm
¼öÇÐ :: °áÇÕ±â ű×
¼öÇÐ :: °áÇձ⠼³¸í
Math :: Compinatorics´Â ¸ñ·Ï¿¡¼ Á¶ÇÕ ¹× ¼ø¿ ¹× ¼ø¿À» ¼öÇà ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Math :: Combinatorics´Â °´Ã¼ ÁöÇâ API·Î Lists.Snopsisavailable¿¡¼ Á¶ÇÕ ¹× ¼ø¿À» ¼öÇà ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¼öÇÐ :: °áÇձ⸦ »ç¿ëÇϽʽÿÀ; ³» @n = qw (a b c); MY $ COMBINAT = MATH :: Combinatorics-> New (Count => 2, data => ,); "2ÀÇ Á¶ÇÕÀ» ÀμâÇϽʽÿÀ :".join ( "", @ n). "n"; Àμâ "----------------------". ( "-"x ½ºÄ®¶ó (@n). "n"; while (my @combo = $ combinat-> next_combination) {print Join ( '', @Combo) "n"; } "n"À» ÀμâÇϽʽÿÀ; "¿¡¼ 3ÀÇ ¼ø¿À» ÀμâÇϽʽÿÀ :".join ( "", @ n) "n"; Àμâ "----------------------". ( "-"x ½ºÄ®¶ó (@n). "n"; while (my @permu = $ combinat-> next_permutation) {print Join ( ", @Permu)."n "; } Ãâ·Â : ¶Ç´Â ³» º¸³½ ±â´É 'Permute', '°áÇÕ'¹× '°è½Â'À» ÅëÇØ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ¼öÇÐ :: °áÇձ⸦ »ç¿ëÇϽʽÿÀ; ³» @n = qw (a b c); "2ÀÇ Á¶ÇÕÀ» ÀμâÇϽʽÿÀ :".join ( "", @ n). "n"; Àμâ "----------------------". ( "-"x ½ºÄ®¶ó (@n). "n"; Àμâ Á¶ÀÎ ( "n", ¸Ê {Á¶ÀÎ ", @ $ _} °áÇÕ (2, @ n)),"n "; "n"À» ÀμâÇϽʽÿÀ; "¿¡¼ 3ÀÇ ¼ø¿À» ÀμâÇϽʽÿÀ :".join ( "", @ n) "n"; Àμâ "----------------------". ( "-"x ½ºÄ®¶ó (@n). "n"; Àμâ Á¶ÀÎ ( "n", ¸Ê ", @ $ _} permute (@ $ _} permute),"n "; Ãâ·Â : abc ---------------------------) --------------- ABCBC ¼ø¿ : ABC ---------------------------- --- µÎ °¡Áö À¯ÇüÀÇ È£Ãâ¿¡¼ µÎ °¡Áö À¯ÇüÀÇ AutoutputÀº µ¿ÀÏÇÏÁö¸¸ °´Ã¼ ÁöÇâ Á¢±Ù ¹æ½ÄÀº Å« ¼¼Æ®¿¡ ´ëÇØ ÈξÀ ÀûÀº ¸Þ¸ð¸®¸¦ ¼ÒºñÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¼öÇÐ :: °áÇձ⠰ü·Ã ¼ÒÇÁÆ®¿þ¾î