comment on

DNA is LIFE

Desc:
You have to know that in biology DNA CODE (ATCG)
is converted into Aminoacids with a code like GGA - G
Transform your name in DNA!
Usage:
perl dna.pl yourname
Spiral algorhitm from How to (ab)use substr, but is not a clone!

#!/usr/bin/perl
use strict;
$_='
    @I
   NC=s
   plit           (/
  /,uc(           $AR
  GV[0           ]));o
 pen(            DATA,"
 <$0"             );und
 ef$/            ;$_=<D
 ATA>;$_=~s/(.*)GGG/GG
  G/gsm;$/="\n";forea
  ch$_(keys%ENV){del
  ete$ENV{$_};}for
   each(@_=  sp
    lit(/\./,
     $_)){@AR
    GV=split(/$
   "/)unless($_Zeq
  Z1);$A RGV[1]=~s/\
  s//Zif($ARGV[1]);$A
  RGV[0]=~s/\s//Zif($A
  RGV        [0]);$_=r
  and          ;nextZi
  f$_        >0.5and$
  ARGV      [1]andZe
   xists    $ENV{
   $ARGV[1]};$
    ENV{$ARGV
     [1]}=$AR
    GV[0]if($AR
   GV[0]and$ARGV[1
   ]);}   @ARGV=();f
   oreach(@INC){push(
   @ARGV,Z$EN  V{$_})
   ;}f            ore
   ach    ("@ARGV"x
   3)Z{ @_=split
    (//,$_);fo
     reach(@
     _){$^O=
    $"x75;if($
    _Zn  eZ$"){su
   bst     r($^O,sin
   (++       $a/8)*32
   +32,1)=$_;tr/ATGC/
   TACG/;substr($^O
    ,sin($a/4)*
    14+32,1)
     =$_;pri
      nt"$^O
       $/";sel
         ectZ$b,$b
           ,$b,0.0
              5;}}}';
$_=~s/\s//gm;$_=~s/Z/$"/gm;eval $_;exit;
GGG G.GGA G.GGC G.GGT G.GAG E.GAA E.GAC D.GAT D.GCG A.
GCA A.GCC A.GCT A.GTG V.GTA V.GTC V.GTT V.AGG R.AGA R.
AGC S.AGT S.AAG K.AAA K.AAC N.AAT N.ACG T.ACA T.ACC T.
ACT T.ATG M.ATA I.ATC I.ATT I.CGG R.CGA R.CGC R.CGT R.
CAG Q.CAA Q.CAC H.CAT H.CCG P.CCA P.CCC P.CCT P.CTG L.
CTA L.CTC L.CTT L.TGG W.TGC C.TGT C.TAC Y.TAT Y.TCG S.
TCA S.TCC S.TCT S.TTG L.TTA L.TTC F.TTT F.XXX O.TGA U.
TAG B.TAA Z.
1
[download]

by Tucano

You can change the genetic code if you want:

GGG G.GGA G.GGC G.GGT G.GAG E.GAA E.GAC D.GAT D.GCG A.
GCA A.GCC A.GCT A.GTG V.GTA V.GTC V.GTT V.AGG R.AGA R.
AGC S.AGT S.AAG K.AAA K.AAC N.AAT N.ACG T.ACA T.ACC T.
ACT T.ATG M.ATA I.ATC I.ATT I.CGG R.CGA R.CGC R.CGT R.
CAG Q.CAA Q.CAC H.CAT H.CCG P.CCA P.CCC P.CCT P.CTG L.
CTA L.CTC L.CTT L.TGG W.TGC C.TGT C.TAC Y.TAT Y.TCG S.
TCA S.TCC S.TCT S.TTG L.TTA L.TTC F.TTT F.XXX O.TGA U.
TAG B.TAA Z.
[download]

other features are

Singular char like 'f' are converted into codons 'ACG'
Cause there are more codons for a single char (redundance) a rand algorhitm was implemented
Render algorhitm are inspired by the fantastic node: How to (ab)use substrby Erudil

Note: to a better rendering the name are reapeted 3 times

In reply to DNA is Life by tucano

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks