From ecf7c4f547ebe22cdc89b7c1c9b4078eabcb80bb Mon Sep 17 00:00:00 2001 From: Jason Self Date: Fri, 23 Aug 2013 21:30:05 -0700 Subject: [PATCH] Updating to version 1.0.1 - Duplicate digits can sometimes be generated when unique digits are requested. --- README | 2 ++ digits.pl | 10 ++++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/README b/README index f212545..2815fcd 100644 --- a/README +++ b/README @@ -1,3 +1,5 @@ +This directory contains version 1.0.1. + This is definitely a thinking person's game! Distantly related to the game Mastermind, you are given clues to help diff --git a/digits.pl b/digits.pl index 41f376f..5a3f0fa 100755 --- a/digits.pl +++ b/digits.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# Digits 1.0 +# Digits 1.0.1 # # Copyright (C) 2013 Jason Self # @@ -221,9 +221,10 @@ sub display_text { $| = 1; print "\033[2J"; print "\033[0;0H"; - print "\t\t\t\t" . '*** DIGITS ***' . "\n\n"; + print "\t\t\t" . '*** DIGITS 1.0.1 ***' . "\n"; print "Homepage: http://jxself.org/digits.shtml\n\n"; print "Copyright (C) 2013 Jason Self \n\n"; +print "Licensed under the GNU AGPL v3 or any later version.\n\n"; print "I will think of a number. The object of the game it to guess the number\n"; print "in as few tries as possible. Each time you guess I will provide a hint:\n\n"; @@ -376,7 +377,7 @@ sub set_game_state { if ($DISTINCT) { my $no_match = $TRUE; - for (my $j = 0; $j < $#digits; $j++) { + for (my $j = 0; $j < $#digits + 1; $j++) { if ($digits[$j] == $digit) { $no_match = $FALSE; last; @@ -405,7 +406,7 @@ sub main { get_options(); while ($TRUE) { - print "\nWhat is your guess?\n"; + print "\nWhat is your guess? Type 'q' or 'quit' to exit.\n"; $guess = read_input(); $guessed = check_digits($guess); @@ -423,6 +424,7 @@ sub main { } if ($guessed == $QUIT) { + print "\nThe number I had was @digits. Bye!\n"; last; } elsif ($guessed) { -- 2.31.1