From 6d12759f04c2eea83aa8e6f07615c1fd92c2cb2d Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Thu, 1 Apr 2021 16:54:00 -0600
Subject: [PATCH] Create nicomachus.pl

Made with Perl!
---
 64 Nicomachus/perl/nicomachus.pl | 46 ++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 64 Nicomachus/perl/nicomachus.pl

diff --git a/64 Nicomachus/perl/nicomachus.pl b/64 Nicomachus/perl/nicomachus.pl
new file mode 100644
index 00000000..4ed2018f
--- /dev/null
+++ b/64 Nicomachus/perl/nicomachus.pl	
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+use strict;
+
+
+print ' 'x 33 . "NICOMA\n";
+print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n";
+print "BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!\n";
+
+
+while (1) {
+	print "\n";
+	print "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100.\n";
+	print "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";
+	print "? "; chomp(my $A = <STDIN>);
+	print "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF";
+	print "? "; chomp(my $B = <STDIN>);
+	print "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF";
+	print "? "; chomp(my $C = <STDIN>);
+	print "\n";
+	print "LET ME THINK A MOMENT...\n";
+	print "\n";
+	for (my $I=1; $I<=1500; $I++) { }
+	my $D= 70*$A+21*$B+15*$C;
+
+	while ($D>105) {
+		$D= $D-105;
+		}
+
+	print "YOUR NUMBER WAS $D, RIGHT";
+
+	my $Flag=0;
+	do {
+		print "? "; chomp($A = uc(<STDIN>));
+		print "\n";
+		if ($A eq "YES") { print "HOW ABOUT THAT!!\n"; $Flag=1; }
+		if ($A eq "NO") { print "I FEEL YOUR ARITHMETIC IS IN ERROR.\n"; $Flag=1; }
+		if ($Flag==0) { print "EH? I DON'T UNDERSTAND '$A' TRY 'YES' OR 'NO'.\n"; }
+		} until ($Flag==1);
+
+	print "\n";
+	print "LET'S TRY ANOTHER.\n";
+	} #goto Line20;
+exit;
+
+