Mastermind: Difference between revisions
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Correct play instructions.) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Minor code cleanup.) |
||
Line 236: | Line 236: | ||
my $score = score($puzzle, $guess); |
my $score = score($puzzle, $guess); |
||
win() if $score eq 'X X X X'; |
win() if $score eq 'X X X X'; |
||
@guesses.push |
@guesses.push: [$guess, $score]; |
||
} |
} |
||
Line 248: | Line 248: | ||
sub score ($puzzle, $guess) { |
sub score ($puzzle, $guess) { |
||
my @score |
my @score; |
||
for |
for ^$length { |
||
if $puzzle[$_] eq $guess[$_] { |
if $puzzle[$_] eq $guess[$_] { |
||
@score.push: 'X'; |
@score.push: 'X'; |
||
Line 258: | Line 258: | ||
} |
} |
||
@score.push('-') while @score < 4; |
@score.push('-') while @score < 4; |
||
@score.sort.reverse.join: ' '; |
|||
#$score ~= ' -' while $score.chars < $length * 2; |
|||
$score |
|||
} |
} |
||
Revision as of 22:32, 29 January 2017
Create a simple version of the board game: Mastermind.
It must be possible to:
- choose the number of colors will be used in the game(2 - 20)
- choose the color code length(4 - 10)
- choose the maximum number of guesses the player has (7 - 20)
- choose whether or not will be repeated colors in the code
The game should display all the player guesses and the results of that guess.
Display(just an idea.):
Feature | Graphic Version | Text Version |
---|---|---|
Player guess | Colored circles | Alphabet letters |
Correct color & position | Black circle | X |
Correct color | White circle | O |
None | Gray circle | - |
A text version example:
1: ADEF - XXO-
Translates to:
first guess;
the four colors(ADEF);
result: two correct colors and spot, one correct color/wrong spot one color is not in the code.
Happy coding!
C++
<lang cpp>
- include <iostream>
- include <algorithm>
- include <ctime>
- include <string>
- include <vector>
typedef std::vector<char> vecChar;
class master { public:
master( size_t code_len, size_t clr_count, size_t guess_count, bool rpt ) { std::string color = "ABCDEFGHIJKLMNOPQRST";
if( code_len < 4 ) code_len = 4; else if( code_len > 10 ) code_len = 10; if( !rpt && clr_count < code_len ) clr_count = code_len; if( clr_count < 2 ) clr_count = 2; else if( clr_count > 20 ) clr_count = 20; if( guess_count < 7 ) guess_count = 7; else if( guess_count > 20 ) guess_count = 20; codeLen = code_len; colorsCnt = clr_count; guessCnt = guess_count; repeatClr = rpt;
for( size_t s = 0; s < colorsCnt; s++ ) { colors.append( 1, color.at( s ) ); } } void play() { bool win = false; combo = getCombo();
while( guessCnt ) { showBoard(); if( checkInput( getInput() ) ) { win = true; break; } guessCnt--; } if( win ) { std::cout << "\n\n--------------------------------\n" << "Very well done!\nYou found the code: " << combo << "\n--------------------------------\n\n"; } else { std::cout << "\n\n--------------------------------\n" << "I am sorry, you couldn't make it!\nThe code was: " << combo << "\n--------------------------------\n\n"; } }
private:
void showBoard() { vecChar::iterator y; for( int x = 0; x < guesses.size(); x++ ) { std::cout << "\n--------------------------------\n"; std::cout << x + 1 << ": "; for( y = guesses[x].begin(); y != guesses[x].end(); y++ ) { std::cout << *y << " "; }
std::cout << " : "; for( y = results[x].begin(); y != results[x].end(); y++ ) { std::cout << *y << " "; }
int z = codeLen - results[x].size(); if( z > 0 ) { for( int x = 0; x < z; x++ ) std::cout << "- "; } } std::cout << "\n\n"; } std::string getInput() { std::string a; while( true ) { std::cout << "Enter your guess (" << colors << "): "; a = ""; std::cin >> a; std::transform( a.begin(), a.end(), a.begin(), ::toupper ); if( a.length() > codeLen ) a.erase( codeLen ); bool r = true; for( std::string::iterator x = a.begin(); x != a.end(); x++ ) { if( colors.find( *x ) == std::string.npos ) { r = false; break; } } if( r ) break; } return a; } bool checkInput( std::string a ) { vecChar g; for( std::string::iterator x = a.begin(); x != a.end(); x++ ) { g.push_back( *x ); } guesses.push_back( g ); int black = 0, white = 0; std::vector<bool> match( codeLen, false );
for( int b = 0; b < codeLen; b++ ) { if( a.at( b ) == combo.at( b ) ) { match[b] = true; black++; continue; }
for( int w = 0; w < codeLen; w++ ) { if( !match[b] && w != b && a.at( w ) == combo.at( b ) ) { match[b] = true; white++; continue; } } } vecChar r; for( int b = 0; b < black; b++ ) r.push_back( 'X' ); for( int w = 0; w < white; w++ ) r.push_back( 'O' ); results.push_back( r );
return ( black == codeLen ); } std::string getCombo() { std::string c, clr = colors; int l, z;
for( size_t s = 0; s < codeLen; s++ ) { z = rand() % ( int )clr.length(); c.append( 1, clr[z] ); if( !repeatClr ) clr.erase( z, 1 ); } return c; }
size_t codeLen, colorsCnt, guessCnt; bool repeatClr; std::vector<vecChar> guesses, results; std::string colors, combo;
};
int main( int argc, char* argv[] ) {
srand( unsigned( time( 0 ) ) ); master m( 4, 8, 12, false ); m.play(); return 0;
} </lang>
- Output:
Enter your guess (ABCDEFGH): gbda -------------------------------- 1: A B C D : X O O - -------------------------------- 2: A A A E : O - - - -------------------------------- 3: E E E E : - - - - -------------------------------- 4: B B B C : X - - - -------------------------------- 5: D B A F : X O O - -------------------------------- 6: G B D A : X X X - Enter your guess (ABCDEFGH): hbda -------------------------------- Very well done! You found the code: HBDA --------------------------------
Perl 6
By default, plays classic Mastermind using letters in place of colors. ( 4 chosen from 6, no repeats, 10 guess limit. ) Pass in parameters to modify the game. Enter a string of --length (default 4) letters with or without spaces. Guesses accept lower or upper case. <lang perl6>sub MAIN (
Int :$colors where 1 < * < 21 = 6, Int :$length where 3 < * < 11 = 4, Int :$guesses where 7 < * < 21 = 10, Bool :$repeat = False ) { my @valid = ('A' .. 'T')[^$colors]; my $puzzle = $repeat ?? @valid.roll($length) !! @valid.pick($length); my @guesses;
loop { clearscr(); say header(); printf " %{$length * 2}s :: %s\n", @guesses[$_][0], @guesses[$_][1] for ^@guesses; lose() if @guesses == $guesses; my $guess = get-guess(); next unless $guess.&is-valid; my $score = score($puzzle, $guess); win() if $score eq 'X X X X'; @guesses.push: [$guess, $score]; }
sub header { my $num = $guesses - @guesses; qq:to/END/; Guess the {$length} element sequence containing the letters {@valid} Repeats are {$repeat ?? !! 'not '}allowed. You have $num guess{ $num == 1 ?? !! 'es'} remaining. END }
sub score ($puzzle, $guess) { my @score; for ^$length { if $puzzle[$_] eq $guess[$_] { @score.push: 'X'; } elsif $puzzle[$_] eq any(@$guess) { @score.push: 'O'; } } @score.push('-') while @score < 4; @score.sort.reverse.join: ' '; }
sub clearscr { $*KERNEL ~~ /'win32'/ ?? run('cls') !! run('clear') }
sub get-guess { (uc prompt 'Your guess?: ').comb(/@valid/) }
sub is-valid (@guess) { $length == @guess ?? True !! False }
sub win { say 'You Win! The correct answer is: ', $puzzle; exit }
sub lose { say 'Too bad, you ran out of guesses. The solution was: ', $puzzle; exit }
}</lang>
- Sample output:
Guess the 4 element sequence containing the letters A B C D E F Repeats are not allowed. You have 4 guesses remaining. A B C D :: X O O - B A C E :: O O - - D F E A :: X O O - C E F D :: O O - - F B D A :: X O O O D B A F :: O O O O Your guess?: afdb You Win! The correct answer is: (A F D B)
zkl
<lang zkl>class MasterMind{
fcn init(code_len,guess_count){ var codeLen =code_len.max(4).min(10); var guessCnt=guess_count.max(7).min(20); var colors ="ABCDEFGHIJKLMNOPQRST"[0,codeLen]; } fcn play{ guesses,win,blackWhite:=List(),False,Void; code:=codeLen.pump(String,'wrap(_){ colors[(0).random(codeLen)] }); do(guessCnt){
str:=getInput(); win,blackWhite = checkInput(str,code); guesses.append(T(str,blackWhite)); showBoard(guesses); if(win) break;
} if(win) println("--------------------------------\n",
"Very well done!\nYou found the code: ",code);
else println("--------------------------------\n",
"I am sorry, you didn't discover the code!\nThe code was: ",code);
} fcn [private] showBoard(guesses){ foreach n,gbw in ([1..].zip(guesses)){ guess,blackWhite := gbw; println("%2d: %s :% s %s".fmt(n,
guess.split("").concat(" "), blackWhite.split("").concat(" "), "- "*(codeLen - blackWhite.len())));
} } fcn [private] getInput{ while(True){
a:=ask("Enter your guess (" + colors + "): ").toUpper()[0,codeLen]; if(not (a-colors) and a.len()>=codeLen) return(a);
} } fcn [private] checkInput(guess,code){
// black: guess is correct in both color and position
// white: correct color, wrong position
matched,black := guess.split("").zipWith('==,code), matched.sum(0); // remove black from code, prepend null to make counting easy code = L("-").extend(matched.zipWith('wrap(m,peg){ m and "-" or peg },code)); white:=0; foreach m,p in (matched.zip(guess)){ if(not m and (z:=code.find(p))){ white+=1; code[z]="-"; } } return(black==codeLen,"X"*black + "O"*white)
}
}(4,12).play();</lang>
- Output:
Enter your guess (ABCD): abcd 1: A B C D : X O O - Enter your guess (ABCD): abcc 1: A B C D : X O O - 2: A B C C : O O - - Enter your guess (ABCD): aaad 1: A B C D : X O O - 2: A B C C : O O - - 3: A A A D : X - - - Enter your guess (ABCD): bccd 1: A B C D : X O O - 2: A B C C : O O - - 3: A A A D : X - - - 4: B C C D : X X O - Enter your guess (ABCD): dcbd 1: A B C D : X O O - 2: A B C C : O O - - 3: A A A D : X - - - 4: B C C D : X X O - 5: D C B D : X X X X -------------------------------- Very well done! You found the code: DCBD