#include/**/<time.h> #include <ncurses.h> # include <stdlib.h> /** */#define O()for(y-= !!\ y;y<H&& /*...Semi-Automatic.*/y< p/W+2;\ y++)for(x=p% W,x-=!!/*..MineSweeper...*/x;x<W&& x<p%W+2;x++) #define _(x,y)COLOR_##x,COLOR_##y /* click / (R)estart / (Q)uit */ #define Y(n)attrset(COLOR_PAIR(n)),mvprintw(/* IOCCC2019 or IOCCC2020 */ typedef int I;I*M,W,H,S,C,E,X,T,c,p,q,i,j,k;char G[]=" x",U[256];I F(I p){ I r=0,x,y=p/W,q;O()q=y*W+x,r+=M[q]^=p-q?(M[q]&16)<<8:0;return r;}I K(I p ,I f,I g){ I x=(g+ f/256)%16-(f+g/256)%16,y=p/W,c=0,n=g/4096 ,m=x==n?0:x==g /16%16-f/16%16-n?256:-1; if(m+1)O()if ((4368&M[n=y*W +x])==4112){ M[c=1,n]=(M[n]&~16)|m; } return c;}void D(){I p,k,o=0,n=C,m=0,q=0;if(LINES-1<H ||COLS/2<W)clear (),Y(4)LINES/2,COLS/2-16,"Make the ter\ minal bigger!");else{for (p=0;p<S;o+=k==3,Y(k)p/W+1,p%W*2,G),p++)G[1]="" "_*!..12345678"[k=E?256&M[p ]?n--,2:E-2||M[p]%2<1?M[p]&16?q=p,m++,3:4+F(p)%16: 1:3];k=T+time(0);T=o||T>=0||E-1?T:k;k=T<0?k:T;Y(7)0,0,"%03d%*s%03d",n>999?999:n,W* 2-6,"",k>999?999:k);Y(9)0,W-1,E>1?"X-(":E-1||o?":-)":"8-)");M[q]|=256*(n==m&&n); } refresh();}short B[]={_(RED,BLACK),_(WHITE,BLUE),_(GREEN,RED),_(MAGENTA,YELLOW),_( CYAN,RED)};I main(I A,char**V){MEVENT e;FILE*f;srand(time(0));initscr();for(start\ _color();X<12;X++){init_pair(X+1,B[X&&X<10?X-1:2],B[X?X<3?2:1:0]);}noecho();cbreak ();timeout(9);curs_set(0);keypad(stdscr,TRUE);for(mousemask(BUTTON1_CLICKED|BUTTO\ N1_RELEASED,0);;){S=A<2?f=0,W=COLS/2,H=LINES-1,C=W*H/5,0:fscanf(f=fopen(V[A-1],"r" ),"%d %d %d",&W,&H,&C)>3; ;S+=W*H;M=realloc(M,S*sizeof(I)*2);for(i=0 ;i<S;i++)!f?M[i]=i,i&&(k=M[j=rand()%i],M[j]=M[i],M[i]=k):fscanf(f, "%d",M+i);if(f)fclose(f);T=E=X=0;for(clear();D(),c=getch(),c-'r' &&(c-KEY_RESIZE||E);){ if(c=='q'){ return(endwin(),0); }if(c== KEY_MOUSE&&getmouse(&e)==OK&&e.x/2<W&&e.y<=H){if(!e.y&&(W-2<e.x&& e.x<W+2)){break;}p=e.x/2+e.y*W-W;if(p>=0){if(!E){for(i=0;i<S;i++)M[S+M [i]]=i,M[i]=16+(M[i]<C);C-=M[p]&1;M[p]=16;E=1;T=-time(0);}if(E<2)M[p]&=(M[p] &257)==1?T+=time(0),E=2,273:257;}}for(p=0;p<S&&E==1;M[p++]&=273){}for(i= (X+S-1)%S;E==1&&i!=X;X=(X+1)%S){if(!(M[p=M[X+S]]&272)){if(K(p,c=F(p) ,0)){goto N;} for(k=p/W-2,k=k<0?0:k;k<p/W+3&&k <H;k++)for(j= p%W-2,j =j<0?0:j;j<W&&j<p%W+3;)if (!(M[q= k*W +j++]&272)){ if(K(p, c,F (q))){ goto N; }F(q) ; }F(p); }}N:; } } } /*(c)Yusukse Endoh*/

引用元：https://www.ioccc.org/2020/endoh1/prog.c

審査員・作者による説明：https://www.ioccc.org/2020/endoh1/index.html

動作

半自動マインスイーパ。

$ gcc -o prog prog.c -lncurses

$ ./prog

端末で起動し、マウスクリックすると普通のマインスイーパのようにマスを開いて機雷の有無を調べる。 数字が出たら、その周りの8セルのうちその数だけ機雷があるということを意味する。 Rを押したら現在のゲームを捨てて新しいゲームを開始する。 Qで終了。

特徴は、簡単な推論でわかるところは自動的にやってくれてしまうところ。 上記の画面は、1クリックしただけで勝手に広がりきったところ。

初期配置を指定することもできる。

$ ./prog ioccc.txt

デモ動画。

解説

マインスイーパをプレイするときは、ふつう、次の2種類のアクションとなる。

1. 機雷がなさそうなマスを第六感で選んでヒントを得る
2. ヒントをもとに機雷がないマスを特定していく

しかし、(2)の方は間違いやすく、時間の無駄。こういう作業は機械にやらせるべき。 ということで、局所的な推論で機雷の有無が決定するマスを自動的に特定していく機能を備えたマインスイーパ。

ふつうのマインスイーパでも0のマスを開いた場合は自動的に周りのマスを開いてくれるものが多い。 その推論をもうちょっと賢くしたとも言える。

次の4つのルールに基づいて自動的に推論する。

• 周囲のマスにすでに数字と同じ数だけフラグが立っていたら、他のマスをすべて開く。
• 周囲のマスにすでに数字と同じ数しか閉じマスがなかったら、それらにすべてフラグを立てる。
• 隣接する2つの数字に注目したとき、大きい方の数字の周囲にどのように機雷があるとしても、小さい方の数字の分をカバーしきってしまう場合、小さい方の数字の周囲マスのうち大きい方の数字と共有していないマスをすべて開く。
• 隣接する2つの数字に注目したとき、小さい方の数字の周囲にどのように機雷があるとしても、大きい方の数字の分の残りが他のマスと同じ数になってしまう場合、大きい方の数字の周囲マスのうち小さい方の数字と共有していないマスにすべてフラグを立てる。

言葉ではわかりにくいと思うが、hint.textに例付きで書かれているので参照されたい。 コード上ではこれらのルールを単一の規則にまとめて表現している。