Exercise 7.1 - Revision history

Erika at 03:31, 5 October 2009

2009-10-05T03:31:32Z

← Older revision		Revision as of 03:31, 5 October 2009
Line 1:		Line 1:
	Return to [[Week 4]]		Return to [[Week 4]]
	Exercise 7.1 in <i>Beginning Perl for Bioinformatics</i~~></b~~>		<br>
			Exercise 7.1 in <i>Beginning Perl for Bioinformatics</i>

	<pre>		<pre>

Erika at 03:31, 5 October 2009

2009-10-05T03:31:17Z

← Older revision		Revision as of 03:31, 5 October 2009
Line 1:		Line 1:
	~~Example~~ 7-1 ~~(stored~~ b~~/c could not be saved)~~		Return to [[Week 4]]
			Exercise 7.1 in <i>Beginning Perl for Bioinformatics</i></b>

	<pre>		<pre>

Erika at 03:30, 5 October 2009

2009-10-05T03:30:19Z

← Older revision		Revision as of 03:30, 5 October 2009
Line 2:		Line 2:

	<pre>		<pre>
	#!/usr/bin/perl -w		#!/usr/bin/perl
			use warnings;
	use strict;		use strict;

	#Erika Phelps		#Erika Phelps
	#~~Sept 30~~, 2009		#Oct 4, 2009
	#Ex 7-1~~: Children's game with random numbers~~		#Exercise 7.1

	#~~Declare the variables~~		#Pseudocode:
	~~my $count;~~		#Ask user to input an amino acid.
	~~my $~~input;		#Guess a random nucleotide until the user confirms the guess.
	~~my $number;~~		#From an array with the 4 nucleotides, randomly choose one to output
	~~my $sentence;~~
	~~my $story;~~

	#~~Here are the arrays of parts of sentences~~		#Declare variables

	my @~~nouns~~ = (		my $amino_acid;
			my $guess;
	'~~Dad~~', 'TV', '~~Mom~~', '~~Groucho~~'~~, 'Rebecca', 'Harpo', 'Robin Hood',~~		my @nucleotide = ('A', 'T', 'G', 'C');
	~~'Joe and Moe',~~		my $nucleotide;
	);		my $input;

	~~my @verbs = (~~		#Ask user to choose a nucleotide:

	~~'ran~~ to~~', 'giggled with', 'put hot sauce into~~ the ~~orange juice of',~~		print "This program will try to guess which nucleotide you have chosen.\n";
	~~'exploded', 'dissolved', 'sang stupid songs with', 'jumped with',~~		print "Please input the one-letter code for an amino acid:\n";
	);

	~~my @prepositions~~ = (		$amino_acid = <STDIN>;

	~~'at the store', 'over the rainbow', 'just for the fun of it',~~		chomp $amino_acid;
	~~'at the beach', 'in New York City', 'in a dream', 'around the world',~~
	);

	#Seed the random number generator		#Seed the random number generator

	srand(time\|$$);		srand(time\|$$);

	~~#This do-until loop composes six sentence "stories" until the user types quit.~~

	do {		do {

	~~#(Re)set $story to the empty string each time through the loop~~		$guess = $nucleotide[int(rand(scalar @nucleotide))];

	~~$story = '';~~

	~~#Make six sentences per story~~

	~~for ($count = 0, $count <6; $count++) {~~

	~~#Notes on the following statements:~~
	~~#1) scalar @array gives the number of elements in the array.~~
	~~#2) rand returns a random number greater than 0 and less than~~
	~~#scalar value~~
	~~#3) int removes the fractional part of a number~~
	~~#4) . joins two strings together~~

	$~~sentence~~ = $~~nouns~~[int(rand(scalar @~~nouns~~))]
	~~. ""~~
	~~. $verbs[int(rand(scalar @verbs))]~~
	~~. ""~~
	~~. $nouns[int(rand(scalar @nouns))]~~
	~~. ""~~
	~~. $prepositions[int(rand(scalar @prepositions))]~~
	~~. '.';~~

	~~$story .= $sentence~~;
	}

	~~#Print the story~~		print "Is \"$guess\" your nucleotide? Type \"Y\" if yes and \"N\" if no.\n";

	print "\n",$~~story,~~"\n";

	~~#Get user input.~~

	~~print~~ "\~~nType~~ \"~~quit~~\~~" to quit, or press Enter to continue:~~ ";

	$input = <STDIN>;		$input = <STDIN>;

	~~#Exit the loop at user's request~~		} until($input =~ /^s*y/i);

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

	exit;		exit;

	</pre>		</pre>

Erika: New page: Example 7-1 (stored b/c could not be saved)

 #!/usr/bin/perl -w use strict;  #Erika Phelps #Sept 30, 2009 #Ex 7-1: Children's game with random numbers  #Declare the variables my $cou...

2009-10-01T00:56:32Z

New page: Example 7-1 (stored b/c could not be saved) <pre> #!/usr/bin/perl -w use strict; #Erika Phelps #Sept 30, 2009 #Ex 7-1: Children's game with random numbers #Declare the variables my $cou...

New page

Example 7-1 (stored b/c could not be saved)

<pre>
#!/usr/bin/perl -w
use strict;

#Erika Phelps
#Sept 30, 2009
#Ex 7-1: Children's game with random numbers

#Declare the variables
my $count;
my $input;
my $number;
my $sentence;
my $story;

#Here are the arrays of parts of sentences

my @nouns = (

'Dad', 'TV', 'Mom', 'Groucho', 'Rebecca', 'Harpo', 'Robin Hood',
'Joe and Moe',
);

my @verbs = (

'ran to', 'giggled with', 'put hot sauce into the orange juice of',
'exploded', 'dissolved', 'sang stupid songs with', 'jumped with',
);

my @prepositions = (

'at the store', 'over the rainbow', 'just for the fun of it',
'at the beach', 'in New York City', 'in a dream', 'around the world',
);

#Seed the random number generator

srand(time|$$);

#This do-until loop composes six sentence "stories" until the user types quit.

do {

#(Re)set $story to the empty string each time through the loop

$story = '';

#Make six sentences per story

for ($count = 0, $count <6; $count++) {

#Notes on the following statements:
#1) scalar @array gives the number of elements in the array.
#2) rand returns a random number greater than 0 and less than
#scalar value
#3) int removes the fractional part of a number
#4) . joins two strings together

$sentence = $nouns[int(rand(scalar @nouns))]
. ""
. $verbs[int(rand(scalar @verbs))]
. ""
. $nouns[int(rand(scalar @nouns))]
. ""
. $prepositions[int(rand(scalar @prepositions))]
. '.';

$story .= $sentence;
}

#Print the story

print "\n",$story,"\n";

#Get user input.

print "\nType \"quit\" to quit, or press Enter to continue: ";

$input = <STDIN>;

#Exit the loop at user's request

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

exit;
</pre>