58 lines
2 KiB
Matlab
58 lines
2 KiB
Matlab
function BullsAndCowsPlayer
|
|
% Plays the game Bulls and Cows as the player
|
|
|
|
% Generate list of all possible numbers
|
|
nDigits = 4;
|
|
lowVal = 1;
|
|
highVal = 9;
|
|
combs = nchoosek(lowVal:highVal, nDigits);
|
|
nCombs = size(combs, 1);
|
|
nPermsPerComb = factorial(nDigits);
|
|
gList = zeros(nCombs.*nPermsPerComb, nDigits);
|
|
for k = 1:nCombs
|
|
gList(nPermsPerComb*(k-1)+1:nPermsPerComb*k, :) = perms(combs(k, :));
|
|
end
|
|
|
|
% Prompt user
|
|
fprintf('Think of a number with:\n')
|
|
fprintf(' %d digits\n', nDigits)
|
|
fprintf(' Each digit between %d and %d inclusive\n', lowVal, highVal)
|
|
fprintf(' No repeated digits\n')
|
|
fprintf('I''ll try to guess that number and you score me:\n')
|
|
fprintf(' 1 Bull per correct digit in the correct place\n')
|
|
fprintf(' 1 Cow per correct digit in the wrong place\n')
|
|
fprintf('Think of your number and press Enter when ready\n')
|
|
pause
|
|
|
|
% Play game until all digits are correct
|
|
nBulls = 0;
|
|
nGuesses = 0;
|
|
while nBulls < 4 && ~isempty(gList)
|
|
nList = size(gList, 1);
|
|
g = gList(randi(nList), :); % Random guess from list
|
|
fprintf('My guess: %s?\n', sprintf('%d', g))
|
|
nBulls = input('How many bulls? ');
|
|
if nBulls < 4
|
|
nCows = input('How many cows? ');
|
|
del = false(nList, 1);
|
|
for k = 1:nList
|
|
del(k) = any([nBulls nCows] ~= CountBullsCows(g, gList(k, :)));
|
|
end
|
|
gList(del, :) = [];
|
|
end
|
|
nGuesses = nGuesses+1;
|
|
end
|
|
if isempty(gList)
|
|
fprintf('That''s bull! You messed up your scoring.\n')
|
|
else
|
|
fprintf('Yay, I won! Only took %d guesses.\n', nGuesses)
|
|
end
|
|
end
|
|
|
|
function score = CountBullsCows(guess, correct)
|
|
% Checks the guessed array of digits against the correct array to find the score
|
|
% Assumes arrays of same length and valid numbers
|
|
bulls = guess == correct;
|
|
cows = ismember(guess(~bulls), correct);
|
|
score = [sum(bulls) sum(cows)];
|
|
end
|