diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-10-20 05:16:59 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-10-20 05:16:59 -0500 |
commit | edf85ef9684fa9845ae792700b48b52fe12bb476 (patch) | |
tree | 2484376612dab9c2626ce74df51455064a44f7dc /PROT.pl | |
parent | a06b0816de22f82584966828c824a5ff06297bf4 (diff) | |
download | rosalind-edf85ef9684fa9845ae792700b48b52fe12bb476.tar.gz rosalind-edf85ef9684fa9845ae792700b48b52fe12bb476.zip |
another solution
Diffstat (limited to 'PROT.pl')
-rw-r--r-- | PROT.pl | 24 |
1 files changed, 24 insertions, 0 deletions
@@ -0,0 +1,24 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my %map = qw( + UUU F CUU L AUU I GUU V + UUC F CUC L AUC I GUC V + UUA L CUA L AUA I GUA V + UUG L CUG L AUG M GUG V + UCU S CCU P ACU T GCU A + UCC S CCC P ACC T GCC A + UCA S CCA P ACA T GCA A + UCG S CCG P ACG T GCG A + UAU Y CAU H AAU N GAU D + UAC Y CAC H AAC N GAC D + UAA Stop CAA Q AAA K GAA E + UAG Stop CAG Q AAG K GAG E + UGU C CGU R AGU S GGU G + UGC C CGC R AGC S GGC G + UGA Stop CGA R AGA R GGA G + UGG W CGG R AGG R GGG G +); + +($_ eq 'Stop' && last) || print for map { $map{$_} } <> =~ /.../g; |