gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-28 05:33:48 -08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #342 from havoclad/main

Browse Source 
Don't give away the answer
This commit is contained in:
Jeff Atwood
2022-01-02 09:57:55 -08:00
committed by GitHub
parent 3ff8fd0647 c8577707a1
commit 494c3fbe80
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
24_Chemist/perlchemist.pl → 24_Chemist/perl/chemist.pl
View File

@@ -8,30 +8,30 @@ print "THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE\n";
print "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID.\n";
print "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE\n";
print "AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST\n";
print "DECIDE WHO MUCH WATER TO ADD FOR DILUTION. IF YOU MISS\n";
print "DECIDE HOW MUCH WATER TO ADD FOR DILUTION. IF YOU MISS\n";
print "YOU FACE THE CONSEQUENCES.\n";
my $T=0;
while ($T<9) {
my $A= int(rand(1)*50);
my $A= int(rand(50) + 1);
my $W= 7*$A/3;
print "$A LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER ($W)";
print "? "; chomp(my $R = <STDIN>);
print " $A LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? ";
chomp(my $R = <STDIN>);
my $D= abs($W-$R);
if ($D>$W/20) {
print " SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB\n";
print " OF QUIVERING PROTOPLASM!\n";
print " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.\n";
print "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB\n";
print "OF QUIVERING PROTOPLASM!\n";
print "HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.\n";
print "\n";
$T++;
} else {
print " GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!\n";
} else {
print "GOOD JOB! YOU MAY BREATHE NOW, BUT DON'T INHALE THE FUMES!\n";
print "\n";
}
}
}
print " YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR\n";
print " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.\n";
print "YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR\n";
print "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.\n";
exit;