gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-22 23:26:40 -08:00
Code Issues Packages Projects Releases Wiki Activity

Create nicomachus.pl

Browse Source 
Made with Perl!
This commit is contained in:
Nezumi Ronin
2021-04-01 16:54:00 -06:00
committed by GitHub
parent 530c8291fd
commit 6d12759f04
1 changed files with 46 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
64 Nicomachus/perl/nicomachus.pl Normal file
View File

@@ -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;