#!/usr/bin/perl

use warnings;
use strict;
use Scalar::Util 'looks_like_number';
no strict "subs";
my $i;
$i=0;
while ($i==0)
{
        print "Welcome to an interactive Perl program. Enter either q or Q to terminate the program or c to continue. Enter your key now: ";
        my $input;
        $input = <STDIN>;
        chomp $input;
        if (($input ne "q") && ($input ne "Q") && ($input ne "c"))
        {
                print "Welcome to an interactive Perl program. Enter either q or Q to terminate the program or c to continue. Enter your key now: ";
                $input = <STDIN>;
                chomp $input;
        }
        elsif (($input eq "q") || ($input eq "Q"))
        {
                exit;
        }
        else
        {
                print "Please enter one x coordinate: ";
                my $x1;
                $x1 = <STDIN>;
                print "Please enter one y coordinate: ";
                my $y1;
                $y1 = <STDIN>;
                print "Please enter one z coordinate: ";
                my $z1;
                $z1 = <STDIN>;
                print "Please enter a second x coordinate: ";
                my $x2;
                $x2 = <STDIN>;
                print "Please enter a second y coordinate: ";
                my $y2;
                $y2 = <STDIN>;
                print "Please enter a second z coordinate: ";
                my $z2;
                $z2 = <STDIN>;
                my $answer;
                if (($x1 !~ /^-?0/ && looks_like_number($x1)) && ($y1 !~ /^-?0/ && looks_like_number($y1)) && ($z1 !~ /^-?0/ && looks_like_number($z1)) && ($x2 !~ /^-?0/ && looks_like_number($x2)) && ($y2 !~ /^-?0/ && looks_like_number($y2)) && ($z2 !~ /^-?0/ && looks_like_number($z2)))
                {
                        $answer = sqrt(((($x2)-($x1))**2)+((($y2)-($y1))**2)+((($z2)-($z1))**2));
                        print "The distance between the two points is $answer \n";
                }
                else
                {
                        print "Error, you must only input numbers. \n";
                }
                my %aminoacid;
                @aminoacid{qw(uuu uuc)} = (Phe) x 2 ;
                @aminoacid{qw(uua uug cuu cuc cua cug)} = (Leu) x 6 ;
                @aminoacid{qw(auu auc aua)} = (Ile) x 3 ;
                @aminoacid{qw(aug)} = (Met) x 1 ;
                @aminoacid{qw(guu guc gua gug)} = (Val) x 4 ;
                @aminoacid{qw(ucu ucc uca ucg agu agc)} = (Ser) x 6 ;
                @aminoacid{qw(ccu ccc cca ccg)} = (Pro) x 4 ;
                @aminoacid{qw(acu acc aca acg)} = (Thr) x 4 ;
                @aminoacid{qw(gcu gcc gca gcg)} = (Ala) x 4 ;
                @aminoacid{qw(uau uac)} = (Tyr) x 2 ;
                @aminoacid{qw(uaa uag uga)} = (TER) x 3 ;
                @aminoacid{qw(cau cac)} = (His) x 2 ;
                @aminoacid{qw(caa cag)} = (Gln) x 2 ;
                @aminoacid{qw(aau aac)} = (Asn) x 2 ;
                @aminoacid{qw(aaa aag)} = (Lys) x 2 ;
                @aminoacid{qw(gau gac)} = (Asp) x 2 ;
                @aminoacid{qw(gaa gag)} = (Glu) x 2 ;
                @aminoacid{qw(ugu ugc)} = (Cys) x 2 ;
                @aminoacid{qw(ugg)} = (Trp) x 1 ;
                @aminoacid{qw(cgu cgc cga cgg aga agg)} = (Arg) x 6 ;
                @aminoacid{qw(ggu ggc gga ggg)} = (Gly) x 4 ;
                print "Plese enter a 3 character long codon using only the characters u a c and g to find the associating amino acid: ";
                my $codon;
                $codon = <STDIN>;
                chomp $codon;
                if ($codon =~ /^[uagc]{3}$/)
                {
                        print "$aminoacid{$codon} \n";
                }
                else
                {
                        print "Error, you must only input a three character long codon using only the characters u a c and g. \n";
                }
                $i++;
        }
}