gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-21 14:50:54 -08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #610 from austinwhite/perl_batnum_termination_logic

Browse Source 
perl '08_Batnum' - add termination logic
This commit is contained in:
Jeff Atwood
2022-03-07 11:16:51 -06:00
committed by GitHub
parent 0003d86a46 d72858ae72
commit b861810851
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
08_Batnum/perl/batnum.pl
View File

@@ -35,6 +35,10 @@ sub run {
($pile_size, $min_select, $max_select, $win_option, $start_option)
= &get_user_input();
if ($pile_size < 0) {
last;
}
play($pile_size, $min_select, $max_select, $win_option, $start_option);
printf "\n";
@@ -93,6 +97,9 @@ sub get_user_input {
while ($pile_size < 1) {
printf "%s", "ENTER PILE SIZE: ";
$pile_size = <STDIN>;
if ($pile_size < 0) {
return ($pile_size);
}
}
while ($min_select < 1 || $max_select < 1 || $min_select > $max_select) {
@@ -264,5 +271,6 @@ sub get_computer_remove_amount {
return (int(rand($max_select - $min_select)) + $min_select);
}
# start the game
run();