From 9bfb20a4bdd3d87396a3a8dd8afc81d2cccfcc18 Mon Sep 17 00:00:00 2001
From: NezumiRonin <nezumironin@gmail.com>
Date: Tue, 2 Mar 2021 02:17:40 -0600
Subject: [PATCH] Create letter.pl

Made with Perl!
---
 54 Letter/perl/letter.pl | 44 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 54 Letter/perl/letter.pl

diff --git a/54 Letter/perl/letter.pl b/54 Letter/perl/letter.pl
new file mode 100644
index 00000000..54fb5fe0
--- /dev/null
+++ b/54 Letter/perl/letter.pl	
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+use strict;
+
+print ' 'x33 . "LETTER\n";
+print ' 'x15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n";
+
+print "LETTER GUESSING GAME\n"; print "\n";
+print "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z.\n";
+print "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES\n";
+print "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER.\n";
+
+my $A;
+while (1) {
+	my $L= 65+int(rand(1)*26);
+	my $G= 0;
+	print "\n"; print "O.K., I HAVE A LETTER. START GUESSING.\n";
+
+	do {
+		print "\n"; print "WHAT IS YOUR GUESS? ";
+		$G=$G+1;
+		chomp($A= <STDIN>);
+		$A= ord($A);
+		print "\n";
+		if ($A<$L) { print "TOO LOW. TRY A HIGHER LETTER.\n"; }
+		if ($A>$L) { print "TOO HIGH. TRY A LOWER LETTER.\n"; }
+		} until($A eq $L);
+
+	print "\n"; print "YOU GOT IT IN $G GUESSES!!\n";
+
+	if ($G<=5) {
+		print "GOOD JOB !!!!!\n";
+		for (my $N=1; $N<=15; $N++) { print chr(7); } #ASCII Bell.
+		} else {
+		print "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!\n";
+		}
+
+	print "\n";
+	print "LET'S PLAN AGAIN.....\n";
+	}
+
+exit;
+
+