home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG048.ARK
/
MM.C
< prev
next >
Wrap
C/C++ Source or Header
|
1984-04-29
|
5KB
|
181 lines
/*
Mastermind game, written by: Stephen A. Ward,
January, 1980
Modified for BDS C by: Leor Zolman,
February, 1980
Usage: mm [ -b ] [ -k ] [ -c# ] [ -p# ]
where: -b tells # of possible solutions before each guess
-c# sets number of different characters (e.g., "-c4" means A-D)
(defaults to 6)
-p# sets number of positions in solution string
(defaults to 4)
-k disables kibitzing (enabled by default.).
Thus, for example, the invokation
mm -c10 -p3
would simulate the game of "Bagels", where the layout is ten different
characters in three positions. I don't think "Bagels" allows repetitions,
though, so it isn't QUITE the same...
*/
#define NPEGS 10 /* Max NPeg */
#define MCOLORS 26 /* Max NColors */
#define NHIST 100
char Secret[NPEGS+2]; /* was CHAR */
char History[NHIST*NPEGS]; /* was CHAR */
int Jots[NHIST];
int guesses;
int NColors, /* Number of colors */
NPeg; /* Number of pegs */
char KFlag, /* Kibitz flag */
BFlag; /* Debug flag */
main(argc, argv)
char **argv;
{
register int i,j;
int ngames,ntries;
ngames = ntries = 0;
char *trial, *arg;
NColors = 6; /* Number of colors */
NPeg = 4; /* Number of pegs */
KFlag = 1; /* Kibitz flag */
BFlag = 0; /* Debug flag */
for (i=1; i<argc; i++)
{ if (*(arg = argv[i]) == '-') switch (*++arg) {
case 'B': BFlag++; continue;
case 'K': KFlag = !KFlag; continue;
case 'C': NColors = atoi(++arg);
if (NColors > MCOLORS) NColors = MCOLORS;
continue;
case 'P': NPeg = atoi(++arg);
if (NPeg > NPEGS) NPeg = NPEGS;
continue;
default: printf("Illegal option %s\n",
argv[i]); exit(-1); }
else
{ printf("Usage: mm [ -b ] [ -k ] [ -c# ] [ -p# ]\n");
exit(-1); }}
printf("Mastermind game:\n");
printf(" I have a secret string of %d letters ",NPeg);
printf("between A and %c.\n", 'A' + NColors - 1);
printf(" Object: find it in as few guesses as possible.\n");
printf(" For each guess, I will tell you how many\n");
printf(" Hits (right letter in the right place) and\n");
printf(" Misses (right letter in the wrong place)\n");
printf(" you had for that guess.\n");
printf(" Note: letters may appear more than once in my strings.\n");
srand1("\nType any character to begin: ");
getchar();
Game:
for (i=0; i<NPeg; i++) Secret[i] = rand() % NColors;
printf("\n\nNew game!\n");
for (guesses=0;;guesses++)
{ if (BFlag)
printf("\n (%d possible secret symbols)\n", Check());
else if (KFlag && guesses && Check() == 1)
printf("\nYou should be able to figure it out now!\n");
if (!rguess("Your test symbol", trial = &History[NPeg*guesses]))
break;
j = match(trial, Secret);
Jots[guesses] = j;
printf( (j>>4 ? "\t\t\t%d hit" : "\t\t\tno hit"), j>>4);
if ((j>>4) - 1) putchar('s');
printf ( (j & 0xf ? ", %d miss" : ", no miss"), j & 0xf);
if ((j & 0xf) - 1) printf("es");
putchar('\n');
if (j == (NPeg << 4))
{ printf("You got it in %d guesses!\n", ++guesses);
ntries += guesses;
ngames++;
i = ntries/ngames;
printf("Average for %d game%c is %1d.%1d\n",
ngames, (ngames != 1) ? 's' : 0x80,
i , ntries*100 /ngames %100);
goto Game; }}
Secret[NPeg] = 0;
printf("My secret symbol was ");
for (i=0; i<NPeg; i++) putchar('A' + Secret[i]);
printf("\n");
goto Game;
}
int match(aa, bb)
char *aa;
char *bb;
{ register int i, score;
char j;
int temp[MCOLORS];
score = 0;
for (i=0; i<NColors; i++) temp[i] = 0;
for (i=0; i<NPeg; i++)
if ((j = aa[i]) != bb[i]) temp[j]++;
for (i=0; i<NPeg; i++)
{ if ((j = bb[i]) == aa[i]) score += 16;
else if (temp[j]-- > 0) score++; }
return score; }
int incr(tt)
char *tt;
{ register int i;
i = 0;
while (i < NPeg)
{ if (++tt[i] < NColors) return 1;
tt[i] = 0; i++; }
return 0; }
int Check()
{ char tt[NPEGS];
char *hh;
register int i, j;
int count;
count = 0;
for (i=0; i<NPeg; i++) tt[i] = 0;
do {
hh = &(History[0]);
for (j=0; j<guesses; j++, hh += NPeg)
if (match(hh, tt) != Jots[j]) goto nope;
count++;
nope: i = i;
} while (incr(tt));
return count; }
rguess(prompt, where)
char *where;
{ register int i, c;
again: printf("%s: ", prompt);
i = strlen(gets(where));
if (i == 0) return 0;
if (i > NPeg && !isspace(where[i])) {
printf("Too many letters\n"); goto again;
}
if (i < NPeg) { printf("Too few letters\n"); goto again; }
for (i=0; i<NPeg; i++) {
c = where[i] = toupper(where[i]) - 'A';
if (c < 0 || c >= NColors)
{ printf("Bad letter -- use A thru %c\n", 'A'+NColors-1);
goto again; }
}
return 1;
}