Best Game

最高のゲーム

Line wrap

Highlight

#include <stdio.h>
#include <curses.h>

#define ST strchr
#define SRD srand48
#define RD lrand48
#define ext(a) (exit(a),0)

#define Q return
#define W wrefresh(r)
typedef int i;

#define Z(d,a) (RD()%((a)-(d)+1)+(d))
i f[3][3] = {15,52,36,20,-39,48,60,0,-25};

char z[6][6];
#define Y(x) (4*(x)+3)
#define X(x) (2*(x)+1)
#define I for
WINDOW *r=NULL;
#define K endwin()

char *g ="\
Use l-h-k-j for move.\nUse + for increment. Use - for decrement.\nUse Q to quit.";

i (*d())();
nt()
{
long time();
SRD(time((i *)0));
memset(z,5,36);
initscr();
cbreak();
noecho();
nonl();
if (COLS<80||LINES<24)
K,ext(1);
if (!(r=newwin(X(6),Y(6),
(LINES-X(6))/2,(COLS-Y(6))/2)))
K,ext(1);
mvaddstr(LINES-5,0,g);
refresh();
}
i ci()
{
i x,y=0;
I (;y<6;++y)
I(x=0;x<6;++x)
mvwaddch(r,X(y),Y(x),z[x][y]+'0'); Q(0);
}
void main()
{
char *ST();
i a=0,b=0,c,q,t,s,x,sc=0;
i(*(*p)())()=(nt(),d);
I(x=0 ; x++<20; )d(Z(0,5),Z(0,5),Z(1,2));
I(t=Z(0,2),q=s=0; q<3; s+=f[q][t]*f[q++][t]);
I(box(r,'|','-'),ci(),wmove(r,X(a),Y(b)),
W; (ST ("+-Qlkjh",(char)(c=wgetch(r))))&&
((i)((i)(q^=s%=Y(q),s/=2)!=(i)(s^=q)&&c&64&&(!(c&7|0)&&--b<0&&
(b=q^s)&0|| c&4&&++b==6&&c&4<(~b&23?q^=s,b^=b
:b&12?b=3:b|2)||c&2&&~c&1&&++a==++q/2+1&&c&16>(
!a|12?a=7,a&=~a:a|4?a=2:a&2)||~c&4&&c&
1&&--a<0&&(a+=6)&0)||~c&64&&(**p(b,a,~c))()||
c&16)?K,ext(0):1)||c; sc==36?ci(),W,K,ext(0):wmove(r,X(a),Y(b)),
W)
I(t=Z(0,2),q=s=0; q<3; s+=f[q][t]*f[q++][t])
I(sc=0; sc<36&&*((char *)z+sc++)==5; );
}
i (*d(a,b,c))()i a,b,c;
{
i x,y;
I(x=a>0?a-1:0; x<=(a<5?a+1:5); ++x)
I(y=b>0?b-1:0; y<=(b<5?b+1:5); ++y)
if(x==a&&y==b&&z[x][y]==(c&2?1:9)||z[x][y]==(c&2?9:1)&&(x!=a||y!=b))Q(ci);
I(x=a>0?a-1:0; x<=(a<5?a+1:5); x++)
I(y=b>0?b-1:0; y<=(b<5?b+1:5)&&(x==a&&y==b&&(z[x][y]+=(c&2?-1:1))||(z[x][y]+=(c&2?1:-1))); y++); Q(ci);
}

引用元：https://www.ioccc.org/1992/marangon.c

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

動作

ライツアウトを拡張したようなゲーム。起動すると、各マスに1から9が振られた盤面がでてくる。

$ gcc -o marangon marangon.c -lncurses

$ ./marangon






                          ┌-------------------------┐
                          |  4   8   5   7   5   4  |
                          |                         |
                          |  8   6   5   3   1   2  |
                          |                         |
                          |  5   6   7   4   8   4  |
                          |                         |
                          |  4   3   3   2   4   2  |
                          |                         |
                          |  4   5   8   6   8   6  |
                          |                         |
                          |  6   1   6   2   7   5  |
                          └-------------------------┘

Use l-h-k-j for move.
Use + for increment. Use - for decrement.
Use Q to quit.

hjklでカーソルを上下左右に動かし、+を押すとカーソルのマスの数字を1増やしつつ、まわりの8マスの数字を1ずつ減らす。 -を逆にカーソルのマスを1減らし、まわりの8マスを1ずつ増やす。いずれかのマスが1より小さくなったり、9より大きくなったりする操作は不可。全部のマスを5したらクリア。

解説

普通に面白いし、ライツアウトみたいに単純かと思ったら、不可能な操作があるせいでだいぶ難しい。

プログラムに特筆するような難読化はないと思う。 (q^=s%=Y(q),s/=2)!=(s^=q)という式が規格違反（副作用完了点の間に変数の読み出しと書き込みを行ってしまっている）。これのせいで動かなくなっていたので、適当に変数に入れるようにして修正した。

パッチ

--- marangon.c
+++ marangon.c
@@ -51,13 +51,13 @@
 void main()
 {
 char *ST();
-i a=0,b=0,c,q,t,s,x,sc=0;
+i a=0,b=0,c,q,t,s,s_tmp,x,sc=0;
 i(*(*p)())()=(nt(),d);
 I(x=0 ; x++<20; )d(Z(0,5),Z(0,5),Z(1,2));
 I(t=Z(0,2),q=s=0; q<3; s+=f[q][t]*f[q++][t]);
 I(box(r,'|','-'),ci(),wmove(r,X(a),Y(b)),
 W; (ST ("+-Qlkjh",(char)(c=wgetch(r))))&&
-((i)((i)(q^=s%=Y(q),s/=2)!=(i)(s^=q)&&c&64&&(!(c&7|0)&&--b<0&&
+(q^=s%=Y(q),s_tmp=s/=2,(i)((i)s_tmp!=(i)(s^=q)&&c&64&&(!(c&7|0)&&--b<0&&
 (b=q^s)&0|| c&4&&++b==6&&c&4<(~b&23?q^=s,b^=b
 :b&12?b=3:b|2)||c&2&&~c&1&&++a==++q/2+1&&c&16>(
 !a|12?a=7,a&=~a:a|4?a=2:a&2)||~c&4&&c&

パッチをダウンロード