From 7874f924bf34624e2c19da050b5c4a0e7ebf13da Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Wed, 17 Mar 2021 11:44:37 -0600
Subject: [PATCH] Create dice.pl

Made with Perl!
---
 33 Dice/perl/dice.pl | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 33 Dice/perl/dice.pl

diff --git a/33 Dice/perl/dice.pl b/33 Dice/perl/dice.pl
new file mode 100644
index 00000000..cb051b0a
--- /dev/null
+++ b/33 Dice/perl/dice.pl	
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+use strict;
+
+
+print ' 'x 34 . "DICE\n";
+print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n";
+my @F;
+
+#REM DANNY FREIDUS;
+print "THIS PROGRAM SIMULATES THE ROLLING OF A\n";
+print "PAIR OF DICE.\n";
+print "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO\n";
+print "'ROLL' THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE\n";
+print "A LONG TIME. IN PARTICULAR, NUMBERS OVER 5000.\n";
+
+my $X;
+my $Z;
+do {
+	for (my $Q=1; $Q<=12; $Q++) {
+		$F[$Q]=0;
+		}
+	print "\n"; print "HOW MANY ROLLS";
+	print "? "; chomp($X = <STDIN>);
+	for (my $S=1; $S<=$X; $S++) {
+		my $A=int(6*rand(1)+1);
+		my $B=int(6*rand(1)+1);
+		my $R=$A+$B;
+		$F[$R]=$F[$R]+1;
+		}
+	print "\n";
+	print "TOTAL SPOTS\tNUMBER OF TIMES\n";
+	for (my $V=2; $V<=12; $V++) {
+		print "$V\t\t$F[$V]\n";
+		}
+	print "\n";
+	print "\n"; print "TRY AGAIN";
+	print "? "; chomp($Z = <STDIN>);
+	} until (uc($Z) ne "YES");
+exit;
+
+