| Acme :: bloodtype. ACME :: BloodTypeÀº À¯¸í ÀλçÀÇ Ç÷¾×Çü¿¡ »ç·Î ÀâÈù »ç¶÷µéÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Acme :: bloodtype. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Andrew Rodland
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~arodland/Acme-BloodType-0.01/lib/Acme/BloodType.pm
Acme :: bloodtype. ű×
Acme :: bloodtype. ¼³¸í
Acme :: BloodTypeÀº À¯¸í ÀλçÀÇ Ç÷¾×Çü¿¡ »ç·Î ÀâÈù »ç¶÷µéÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Acme :: BloodTypeÀº À¯¸í ÀλçÀÇ Ç÷¾×Çü¿¡ »ç·Î ÀâÈù »ç¶÷µéÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. ´Ù¾çÇÑ Ç÷¾×ÇüÀ» °¡Áø »ç¶÷µéÀ» ¸ðµ¨¸µÇÏ°í ¾ÆÀÌ°¡ÀÖ´Â °æ¿ì ¾î¶² ÀÏÀÌ ÀϾÁö¸¦ ¸¸µå´Â °ÍÀ» ¾Ë ¼ö ÀÖ½À´Ï´Ù. ¾ËÆÄ ¹öÀüÀº ÇöÀç ABO¸¦ ó¸®ÇÕ´Ï´Ù. ACME :: BloodTypeÀ» »ç¿ëÇϽʽÿÀ. # HOOLAY Gene Sequencers $ Mary = Acme :: BloodType-> New ({enotype => "AA"}); $ Bill = Acme :: BloodType-> new ({phenotype => "o"}); $ baby = $ mary-> ½ÊÀÚ°¡ ($ bill); "±×°ÍÀº", $ baby-> get_bloodtype, "! n"; methodAcme :: bloodtype-> new (% ÁöÁ¤ ÀÚ) »ç¶÷À» ³ªÅ¸³»´Â ACME :: BloodType °´Ã¼¸¦ ¸¸µì´Ï´Ù. À¯ÀüÀÚÇü, Ç¥ÇöÇü (ÀÌ °æ¿ì À¯ÀüÀÚÇüÀÌ ¹«ÀÛÀ§·Î ¼±ÅÃµÈ °æ¿ì) ¶Ç´Â ¾Æ¹« °Íµµ ¼±ÅÃÇÏÁö ¾Ê°Å³ª ¸ðµç °ÍÀÌ ¹«ÀÛÀ§·Î ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. È®·üÀº (¾ÆÁ÷) ½ÇÁ¦ ¹èÆ÷ÆÇÀ» ¸ðµ¨¸µÇÏÁö ¾Ê½À´Ï´Ù. $ bt-> get_bloodtypegetÀÌ »ç¶÷ÀÇ bloodtype (phenotype). "a", "b", "ab"¶Ç´Â "o"¸¦ ¹ÝȯÇÕ´Ï´Ù. $ bt-> get_genotypegetÀÌ »ç¶÷ÀÇ À¯ÀüÀÚÇüÀÔ´Ï´Ù. "a", "b"¶Ç´Â "o"ÀÏ ¼öÀÖ´Â µÎ ÀÚÀÇ ¹®ÀÚ¿À» ¹ÝȯÇÕ´Ï´Ù. $ BT1-> Cross ($ bt2) "´Ù¸¥ »ç¶÷"À» ´Ù¸¥ »ç¶÷°ú ÇÔ²² ¼±ÅÃÇÏ¿© ¹«ÀÛÀ§·Î ¼±ÅÃÇÑ °á°ú¸¦ »ý¼ºÇÕ´Ï´Ù. ¸àµ¨. ¿ä±¸ »çÇ× : ¡¤ Perl.
Acme :: bloodtype. °ü·Ã ¼ÒÇÁÆ®¿þ¾î