?
Solved

MasterMind variation

Posted on 1997-12-11
1
Medium Priority
?
477 Views
Last Modified: 2010-04-16
I wonder if anyone can help me with this...
I want to make a mastermind variation for my homepage. This variation does not have to do
with colors, instead it has to do with numbers. The program must take as
input the max number that can be used as well  the number of the
positions (pinholes). The program must use minmax of alpha-beta...


(example)

Enter the max number: 4
Enter the number of positions: 5
Now give the code: 2 3 2 4 1

Thinking...
Your code must be: 2 3 2 4 1


Thanks for your help
0
Comment
Question by:kkarnez
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 1

Accepted Solution

by:
potsy earned 600 total points
ID: 1216973
here is some code I found
uses crt;

type
pegstype = array[1..10] of integer;

var
  user,pegs,pegs2 : pegstype;
  guess,x,p,c,p2,c5  : integer;


{ ----------------------------------------------------------------------------}


procedure Correct(p,c : integer; user,pegs : pegstype; var c5,p2 :
integer); { cheks if done or not }

var p3,b,c2,c3,c4 : integer;
    colsc,      { code colors }
    colsg    { colors from user }
        : array[1..9] of integer;
begin
  b := 0;
   { counts correct pegs }
  for c2 := 1 to p do if (user[c2]=pegs[c2]) then b := b+1;
  p2 := b;
        { counts correct colors }
  pegs2 := pegs;
  p3 := p;
   { fills COLSc with the colors in PEGS }
  c4 := 0;
  for c2 := 1 to c do
   begin
   if (pegs[c2])=c2 then
    begin
       c4 := c4+1;
       colsc[c4] := c2;
    end;
   end;
   { fills COLSg with the colors in USER }
  b := 0;
  for c2 := 1 to c do
   begin
     if (user[c2]=c2) then
     begin
       b := b+1;
       colsg[b] :=c2;
     end;
   end;
  { finally counts the correct colors }
  c5 := 0; { says how many colors correct }
  for c2 := 1 to c4 do
   for c3 := 1 to b do
    if colsg[c3]=colsc[c2] then c5 := c5+1;
end;
{===
=======================================================================}

Begin
  clrscr;
  randomize;
      { ask user how many pegs and colors to use }
  write('How many pegs (1-10) -->');
  readln(p);
  write('How many colors (1-9) -->');
  readln(c);
   { initializes the pegs }
  for x := 1 to p do pegs[x] := random(c)+1;
  { starts playing the game }
  guess := 1;
  repeat
    writeln('Guess ',guess);
    for x := 1 to p do
     begin
        write('Peg ',x,' -->');
readln(user[x]);
     end;
    guess := guess+1;
    correct(p,c,user,pegs,c5,p2);  { calls procedure to check pegs }
    writeln('You have ',p2,' correct peg(s)');
    writeln('and ',c5,' correct color(s)');
    writeln;
  until p2=p;  { loop until number of good guess = number of pegs }
  writeln('You have broken the code in ',guess-1,' guesses');
  readln;
End.

It should work fine if you need more help let me know.
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is a fine trick which I've found useful many times, when you just don't want to accidentally run a batch script or the commands needs administrator rights.
New style of hardware planning for Microsoft Exchange server.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Sometimes it takes a new vantage point, apart from our everyday security practices, to truly see our Active Directory (AD) vulnerabilities. We get used to implementing the same techniques and checking the same areas for a breach. This pattern can re…

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question