#include <X11/Xlib.h> #include <unistd.h> typedef long O; typedef struct { O b,f,u,s,c,a,t,e,d; } C; Display *d; Window w; GC g; XEvent e; char Q[] = "Level %d Score %d", m[222]; #define N(r) (random()%(r)) #define U I[n++]=L[n]=l; n%=222 #define K c=-l.u; l=I[i]; l.t=0; c+=l.u #define E l.e--&&!--L[l.e].d&&(L[l.e].t=3) #define M(a,e,i,o) a[0]=e,(a[1]=i)&&XFillPolygon(d,w,g,(void*)a,o,1,1) #define F return #define R while( #define Y if(l.t O p ,B, D,A=6,Z ,S=0,v= 0,n=0,W=400 ,H=300,a[7] ={ 33,99, 165, 231,297,363} ; XGCValues G={ 6,0 ,~0L,0,1} ; short T[]={ 0,300,-20,0,4 ,-20,4,10,4,-5,4,5, 4,-20,4,20,4,-5,4,5,4, -10,4,20},b[]={ 0,0,4, 0,-4,4,-4,-4,4,-4,4,4} ; C L[222],I[222];dC(O x){ M(T,a[x],H,12); } Ne(C l,O s) { l.f=l.a=1; l.b=l.u=s; l.t=16; l.e=0; U; } nL(O t,O a,O b,O x,O y,O s,O p){ C l; l.d=0; l.f=s; l.t=t; y-=l.c=b; l.e=t==2?x:p; x-=l.s=a;s=(x|1) %2*x; t=(y|1)%2*y; l.u=(a=s>t?s: t)>>9;l.a=(x<<9)/a;l.b=(y<<9)/a; U; } di(C I){ O p,q,r,s,i=222;C l; B=D=0; R i--){ l=L[i]; Y>7){ p=I.s -l.s>>9; q=I.c-l.c>>9; r=l.t==8?l.b: l.a; s=p*p+q*q; if(s<r*r||I.t==2&&s< 26) F S+=10; s=(20<<9)/(s|1); B+=p*s; D+=q*s; }} F 0; } hi(O x,O d){ O i=A; R i--&&(x<a[i]-d||x>a[i]+d)); F i; } dL(){ O c,r=0, i=222,h; C l; R i--){ l=L[i]; Y){ r++;c=l.f; Y==3){c=l.u; l.t=0; E; }R c--){-- l.u;h=l.c>>9; Y>7){XDrawArc(d,w,g, (l.s>>9)-++l.a,h-l.a,l.a*2,l.a*2,0 ,90<<8); if(!l.u){ I[i].t-=8; l=I[i]; } } else Y==2)M (b,l.s>>9,h,6); else XDrawPoint(d ,w,g,(l.s+=l.a)>>9, h=(l.c+=l.b)>>9); Y==4&&!l.u){ Ne (l,20); K; } Y&&l.t<3&&(di(l)||h> H)){ if(h>H&&(c=hi( l.s>>9,25))>=0){ dC(c); a[c]=a[-- A]; }Ne(l,30); Y==1){ E;K; } else c=l.t=0;} Y==1&&h<H -75&&!N(p*77)){ do{ nL(1,l.s,l.c, N(W<<9),H<<9,1,i+ 1); I[i].d++; }R N(3) ); K; l.u=c; c=0; } Y ==2){ l.s+=l.a+B; l.a= (l.e-l.s)/((H+ 20-h)|1); l.c+=l.b+D; M(b,l.s>>9,l.c>>9,6); } } L[i]=l; } } F r; } J(){ R A) { XFlush(d); v&&sleep( 3); Z=++v*10; p=50-v; v%2&&hi ((a[A]=N(W-50)+25),50)<0 &&A++; XClearWindow (d,w); for(B=0; B<A; dC(B++)); R Z|dL()){ Z&&!N(p)&&(Z-- ,nL(1+!N(p),N(W<<9), 0,N(W<<9),H<<9,1 ,0)); usleep(p*200); XCheckMaskEvent(d, 4,&e)&&A&&--S&&nL(4,a[N(A)]<<9,H-10<<9,e. xbutton.x<<9,e.xbutton.y<<9,5,0);}S+=A*100; B=sprintf(m,Q,v,S); XDrawString(d,w ,g,W/3,H/2,m,B); } } main () { O i=2; d=XOpenDisplay(0); w=RootWindow(d,0); R i--) XMapWindow(d,w=XCreateSimpleWindow(d,w,0,0,W,H,0,0,0)); XSelectInput(d,w,4|1<<15); XMaskEvent(d,1<<15,&e); g=XCreateGC(d,w,829,&G); srandom(time(0)); J(); puts(m); }

引用元：https://www.ioccc.org/2001/williams.c

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

動作

X11でのミサイルコマンドのクローン。

$ gcc -o williams williams.c -lX11

$ ./williams

降ってくるミサイルに対し基地を守る。 クリックすると迎撃ミサイルを発射する。 迎撃ミサイルはクリックした地点につくと爆発し、爆風の中に他のミサイルが巻き込まれたらそれも爆発する。 それがさらに誘爆することもある。 すべての都市が破壊されたら終了。

解説

コード形状は放射能マーク。 williams.hintの中に作者コメントで「(x|1)%2とやってる意味わかるか？」と書かれていて、おそらく符号を取り出す意図（xが正なら1、負なら-1）だと思うが、これはC言語では実装既定なのでポータブルではなさそう。

賞名は同年の[[2001/kev]]と対称的になっている。

よくわからないが、XMaskEventの呼び出しで刺さっていたので、取り除いたら動作した。

パッチ

--- williams.c +++ williams.c @@ -64,7 +64,6 @@ w=RootWindow(d,0); R i--) XMapWindow(d,w=XCreateSimpleWindow(d,w,0,0,W,H,0,0,0)); XSelectInput(d,w,4|1<<15); -XMaskEvent(d,1<<15,&e); g=XCreateGC(d,w,829,&G); srandom(time(0)); J();

パッチをダウンロード