Best Game

最高のゲーム

Line wrap

Highlight

#include <stdio.h>
#include <malloc.h>
#include <string.h>

#define A(x) (e^d)&i?e:(e+=i+i/15-d,d<<=4,i<<=4,x)
#define B b+=!((e^d)&i)&&(d|=i),i<<=4,
#define C i=15,B B B B d=d<<4|d>>12,
#define D=(d=g,b=0,C b<<=4, C C C b)
#define E if(**y)goto
#define F=a[rand()%c]
#define G unsigned short
#define H e^=a[z],a[z]^=e,e^=a[z],

void
    main
	(int
	    z,char
		**y)
		    {G*a
			,b,c
			    ,d,e
				,f,g
				    ,h,i
					;*(*
					    y+=
						strlen
						    (*y)
							-1)^=
							    'd';
								srand
								    (time
									(0))
									    ;z==
									2&&
								    sscanf
								(y[1
							    ],"%d"
							,&z)
						    &&z?
						0:(z
					    =6);
					if(!
				    (a=(
				G*)
			    calloc(
			z*z*
		    z*z,
		sizeof
	    (G))
	)){
    printf
("No\
    memory\
	\n");
	    exit
		(1);
		    }for
			(c=1
			    ;i=15
				,d=z
				    ,c<z
					*z*z
					    *z&&
						(e=a
						    [c-1
							]+1,
							    a[c]
								=A(A
								    (A(A
									(0))
									    )),1
									);c++
								    );*(
								**y?
							    &g:&
							e)F;
						    do{
						printf
					    ("(%d): ????\b\b\b\b"
					,c);E
				    q0;else
				goto
			    q1;q0:
			printf
		    ("%04X\n"
		,g+
	    4369
	);E
    q2;q1:
scanf
    ("%hx"
	,**y
	    ?&h:
		&g);
		    E q3
			;g-=
			    4369
				;q2:
				    printf
					("??\b\b"
					    );E q1;
						printf(
						    "%02x\n"
							,h D
							    );q3
								:for
								    (z=f
									=0;(
									   z<c||
									(c=f
								    ,0))
								&&(H
							    b D!=
							h,H b
						    ||(a[
						f++]=
					    a[z])
					,1);z
				    ++);
				}while
			    (h!=
			64&&
		    c>0&&
		((g F
	    ),1)
	);printf
    ("\n"
);}

引用元：https://www.ioccc.org/1993/leo.c

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/1993/leo.hint

動作

マスターマインドのゲームマスターとソルバ。実行ファイル名の最後がdだとゲームマスターになる。

$ gcc -o leo leo.c

$ mv leo mind

$ ./mind
(1296): ???

????の部分に予想を書くと、その成否を2桁で返す（上の桁は位置も数字も正しい数、下の桁は数字は正しいが位置が違う数）。最後まで動かした例を示す。

$ ./mind
(1296): 5565
12
(240): 5232
12
(28): 2225
04
(6): 4542
20
(2): 1552
40

実行ファイルの最後がd以外だとソルバになる。

$ mv mind leo

$ ./leo
(1296): 2435
??

??のところに成否を2桁で埋めていく。最後まで進めた例を示す

$ ./leo
(1296): 2435
01
(152): 1262
22
(7): 1226
40

解説

カッコの中にある数字は、残る可能性の数を表している。

コードはジグザグ形状。特に意味はないと思う。ソルバのguessは、特に最短解答を目指すものではなく、乱数生成していると思う。実質6行程度であり、わりと短くまとまっていて良い。ゲームマスターモードとソルバモードでコードが共有されているのはエレガント。