¼öÇÐ :: °áÇÕ±â

MATH :: COMPINATORICS´Â ¸ñ·Ï¿¡¼­ Á¶ÇÕ ¹× ¼ø¿­À» ¼öÇà ÇÒ ¼öÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

¼öÇÐ :: °áÇձ⠼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Allen Day
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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.


¼öÇÐ :: °áÇձ⠰ü·Ã ¼ÒÇÁÆ®¿þ¾î