From e96306d796afd78eda029600a0367e47459c0126 Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Wed, 17 Mar 2021 10:31:39 -0600
Subject: [PATCH] Create hi-lo.pl

Made with Perl!
---
 47 Hi-Lo/perl/hi-lo.pl | 45 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 47 Hi-Lo/perl/hi-lo.pl

diff --git a/47 Hi-Lo/perl/hi-lo.pl b/47 Hi-Lo/perl/hi-lo.pl
new file mode 100644
index 00000000..08173a56
--- /dev/null
+++ b/47 Hi-Lo/perl/hi-lo.pl	
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+use strict;
+
+
+print ' 'x 34 . "HI LO\n";
+print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n"; print "\n"; print "\n";
+print "THIS IS THE GAME OF HI LO.\n"; print "\n";
+print "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE\n";
+print "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. IF YOU\n";
+print "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!\n";
+print "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY. HOWEVER,\n";
+print "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.\n"; print "\n";
+my $R=0;
+my $A;
+do {
+	print "\n";
+	my $Y=int(100*rand(1));
+	foreach (1..6) {
+		print "YOUR GUESS $Y";
+		print "? "; chomp($A = <STDIN>);
+		if ($A eq $Y) { last; }
+		if ($A>$Y) {
+			print "YOUR GUESS IS TOO HIGH.\n";
+			} else {
+			print "YOUR GUESS IS TOO LOW.\n";
+			}
+		print "\n"; 
+		}
+
+	if ($A==$Y) {
+		$R=$R+$Y;
+		print "GOT IT!!!!!!!!!! YOU WIN $Y DOLLARS.\n";
+		print "YOUR TOTAL WINNINGS ARE NOW $R DOLLARS.\n";
+		} else {
+		$R=0;
+		print "YOU BLEW IT...TOO BAD...THE NUMBER WAS $Y"
+		}
+	print "\n"; print "PLAY AGAIN (YES OR NO)";
+	print "? "; chomp($A = <STDIN>);
+	} until (uc($A) ne "YES");
+print "\n"; print "SO LONG. HOPE YOU ENJOYED YOURSELF!!!\n";
+exit;
+
+