Homework 1. Make a Perl program translating 'all' combinations of triple bases into amino acids

#!/usr/bin/perl
use strict;
use warnings;

my @result;
my @Base = ("U","C","A","G");
my @Protein = (    
                "F","F","L","L","S","S","S","S",
                "Y","Y","-","-","C","C","-","W",
                "L","L","L","L","P","P","P","P",
                "H","H","Q","Q","R","R","R","R",
                "I","I","I","M","T","T","T","T",
                "N","N","K","K","S","S","R","R",
                "V","V","V","V","A","A","A","A",
                "D","D","E","E","G","G","G","G");
for (my $first = 0; $first <=3; $first++){
for (my $second = 0; $second <=3; $second++){
for (my $third = 0; $third <=3; $third++){
        @result=("$Base[$first]","$Base[$second]","$Base[$third]","=",$Protein[16*$first+4*$second+$third]);
        print(@result,"\t");
}}}
my @grep = grep(/"C"/, @Base);
print "@grep\n";
print("\n");
print("(- : stop codon)\n");

 

---

Homework_in_the_bioinformatics_class