| AI :: Gene :: Sequence. À¯Àü Àû ¼¿À» ÀúÀåÇÏ°í µ¹¸®´Â ±âÃÊ ¼ö¾÷ |
Áö±Ý ´Ù¿î·Îµå |
AI :: Gene :: Sequence. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ajgough/
AI :: Gene :: Sequence. ű×
AI :: Gene :: Sequence. ¼³¸í
À¯Àü Àû ¼¿À» ÀúÀåÇÏ°í µ¹¸®´Â ±âÃÊ ¼ö¾÷ AI :: Gene :: Sequence´Â À¯ÀüÀÚ ½ÃÄö½ºÀÇ Ã¢Á¶ ¹× µ¹¿¬º¯À̸¦À§ÇÑ ÀϹÝÀûÀÎ ¹æ¹ýÀ» Á¦°øÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. µ¹¿¬º¯ÀÌ¿¡ ÀÇÇØ »ý¼º µÈ À¯ÀüÀÚ°¡ À¯¿ëÇÑ »óÅ·ΠÀ¯ÁöµÇ´Â ¹æ¹ýÀº (¿¹¸¦ µé¾î, À¯ÀüÀÚ°¡ Äڵ带 ¹ß»ý½ÃÅ°´Â °æ¿ì, ¿Ã¹Ù¸¥ ±¸¹®À» À§ÇØ Å×½ºÆ® ÇÒ ¼öÀÖ´Â °æ¿ì)À» º¸ÀåÇÏ´Â ¹æ¹ýÀ¸·Î ´Ù¾çÇÑ µ¹¿¬º¯ÀÌ°¡ Á¦°øµË´Ï´Ù. ÇöÀç À¯ÀüÀÚ¿¡¼ ½½·ÔÀ» Â÷ÁöÇÏ°í ÀÖ½À´Ï´Ù. AI :: Gene :: Simple Class¸¦ »ç¿ëÇÏ¿© ´õ ºü¸£°Ô ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. µ¹¿¬º¯ÀÌ¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º´Â µ¿ÀÏÇÕ´Ï´Ù. ±×·¡¼ ¾ÕÀ¸·Îµµ º¯°æ ÇؾßÇÏ´Â °æ¿ì ³Ê¹« °íÅ뽺·´Áö ¾Ê½À´Ï´Ù.ÀÌ ¸ðµâÀº DNA sequences¸¦ ºÐ¼®ÇÏ´Â µ¥ »ç¿ëµÇ´Â ¹ÙÀÌ¿À Æù ¸ðµâ°ú È¥µ¿Çؼ´Â ¾ÈµË´Ï´Ù. ÀÌ ÄÚµåÀÇ ¸Þ¼Òµå´Â ´Ù¸¥ ¸ðµâ¿¡ »ó¼ÓµÇ¾î ÀÖ½À´Ï´Ù. Synopsis ÆÐÅ°Áö´Â ½º¹°Áö; AI :: Gene :: Sequence; @isa = QW (AI :: Gene :: Sequence); ³» %ÀÇ °Í = (a => qw (a1 a2 a3 a4 a5)], b => ,); sub generate_token {my $ self = shift; MY ($ type, $ prev) = @_; if ($ type) {$ prev = $ {$ things {$ type}} ; } else {$ type = ( 'a', 'b') ; $ prev = $ {$ things {$ type}} ; } ¹Ýȯ ($ type, $ prev); } Sub Valid_gene {My $ self = shift; $ _ = /(.) = 1/1À» ¹ÝȯÇϽʽÿÀ. ¹Ýȯ 1; } ÇÏÀ§ ¾¾¾Ñ {³» $ self = shift; $ self -> = 'ababab'; @ {$ self-> } = QW (A1 B1 A2 B2 A3 B3); } ÇÏÀ§ ·»´õ¸µ {³» $ self = shift; ¹Ýȯ Á¶ÀÎ ( '', @ {$ self -> }); } # ´Ù¸¥ À§Ä¡ ÆÐÅ°Áö ¸ÞÀÎ; My $ Gene = SomeGene-> New; $ gene-> ¾¾¾Ñ; $ gene-> ·»´õ¸µ, "\ n"À» ÀμâÇϽʽÿÀ; $ GENE-> µ¹¿¬º¯ÀÌ (5); $ gene-> ·»´õ¸µ, "\ n"À» ÀμâÇϽʽÿÀ; $ GENE-> µ¹¿¬º¯ÀÌ (5); $ gene-> ·»´õ¸µ, "\ n"À» ÀμâÇϽʽÿÀ; ¿ä±¸ »çÇ× : ¡¤ Perl.
AI :: Gene :: Sequence. °ü·Ã ¼ÒÇÁÆ®¿þ¾î