Exercise 7.1

From Earlham CS Department
Jump to navigation Jump to search

Return to Week 4
Exercise 7.1 in Beginning Perl for Bioinformatics

use warnings;
use strict;

#Erika Phelps
#Oct 4, 2009
#Exercise 7.1

#Ask user to input an amino acid.
#Guess a random nucleotide until the user confirms the guess.
#From an array with the 4 nucleotides, randomly choose one to output

#Declare variables

my $amino_acid;
my $guess;
my @nucleotide = ('A', 'T', 'G', 'C');
my $nucleotide;
my $input;

#Ask user to choose a nucleotide:

print "This program will try to guess which nucleotide you have chosen.\n";
print "Please input the one-letter code for an amino acid:\n";

$amino_acid = <STDIN>;

chomp $amino_acid;

#Seed the random number generator


do {

    $guess = $nucleotide[int(rand(scalar @nucleotide))];

    print "Is \"$guess\" your nucleotide? Type \"Y\" if yes and \"N\" if no.\n";

    $input = <STDIN>;

} until($input =~ /^s*y/i);