#include <stdio.h> #include <sys/time.h> #include <X11/Xlib.h> #include <X11/keysym.h> #define Z(a)main(a,T) Window L; #define J (K, GC N; #define I ; for( int g,h,i,j,k,l,m,n,p,q,r,v,w,x,y,z, #define W(a)(y/v*!w+((S+1)>>a&255)*(D+y/(z|w-2))/D)<<a| o,b,f,u,s,c,a,t,e,d, C #define U (struct timeval*)H [1<<18],A=100,B=4,D=200,E=53300,F=65793,H[4]; #define V(a)#a": %1d'%02d\"%02d " Display*K; Pixmap M; char P[99]; int main #define Y(a,b)(a<b?a:b) (int S,char**T){ #define X(a)\ XDrawLine J M,N,D+l a m,o,D+l a n,o), XEvent O I p=E/5; --S&~1? XSetForeground J N,W(0)W(8)W(16)0),X(-)X(+)gettimeofday(U,0):S?z=97 == ** ++ T,w=A==z[*T],B-=w[z+*T]%3,S:++S; XCopyArea J M,L,N,0,0,e,D,0,0), XSync J 0), XFlush (K),select(0,0,0,0,U+1)){ I 3[H]=F; p==++r?K= XOpenDisplay (0),N= XCreateGC J L= XCreateSimpleWindow J RootWindow(K,0),0,0,e=D*2,D,0,0,0),0,0), XSelectInput J L,KeyPressMask|KeyReleaseMask), XMapWindow J L),M= XCreatePixmap J L,e,d=D,DefaultDepth(K,0)),u=h=q=E:r<p?a=r/D%6,r[C +p]=(l+=!a|a%2?g:a-3)/4,r[C]=2*r<=p?(n+=(i-=(i+34&&r /149%B)-(i-34&&r/353%3)))/55:C[p-r],v=4-3*z: XPending (K)?C[F+ XLookupKeysym (&O.xkey,0& XNextEvent J&O))]^=O.type==KeyPress||O.type==KeyRelease,p:0; /* Some more code */ )I k=C[F+XK_Right]-C[F+XK_Left],j=k?j+v*k*(j*k<8):j*.9,u+=(s=Y(C[F+XK_space]* 3+s-!!s,a))/9,c=u>p?q=Y(h,q),u%=p,Z(c=0):c,t+=j*(s+A)/e-s/i*(C[u+4]-C[u]),s=t *t>p?t*=.97,s*.8:g>a&&b*b<D*9?i:s,i=k=l=0,o=n=e; i-5; Z((k/17?o++==y?m=n=D,f -=A,o=30+9*i++:0,n-=2,m+=3,l=f/.7,y*F+A-i*k:k|!o?f=l=C[u]/-2-t,k+=17*w,o=k+++ 20,n=k+k-k*k/9,F*p:o--<a?y=135,A*F|D:0)))I x=g=m=f=0,a=i=u+D,d+=9; o<f?n=2*e, Z(z?r+k*F*8:E-k*A*A),n=9+x/D,Z(!k+z?r=D*F+9:A<<17),n-=x/9/D,Z(i%p>6?h=r*(3+z) /5:r),n=x/13/e,Z(k?h:r),o++:(f=x/D+70+C[i+p]-C[u+p],o=x?o:f,k=2*i/41%2,l=C[-- i]-C[u]-t,x+=D-(y=i-u),g=(d-i)%410?g:(a=o,b=l+B*x/e,x)/A,i>u); )I k=i=0,x=g, l=b; ++i==41+!f&&k?f=k=i=l=0,x=190,a=163:i==42?i=9,k=r:!k|i-41; n=(Y(Y(Y(75,A -i)/3,95-2*i),r-k+2*i)-k/r)*x/D,m=i<9?x*14/D:k?(i-31)/5*(i%12)?0:n-1:0,o=a-i* x/D,y=D-o,h=Z(k*r+k*f/F))I B=g?B:1-h%3,i=60,y=n=m,XDrawString J M,N,30,x,P, sprintf(P,V(Time)V(High)"Speed: %03dmph",h/A/i,h/A%i,h%A,q/A/i,q/A%i,q%A,s,Z( A<<17))),x=h; ++f<2*z*e; l=(x*=3)%e,o=x*x%a,Z(-1)); } return A**H+1[H]/p-c; }

引用元：https://www.ioccc.org/2004/vik1.c

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

動作

レースゲーム。

$ gcc -o vik1 vik1.c -lX11

$ ./vik

左右の矢印でハンドル操作。 スペースでアクセルを踏む。離すと徐々に減速する。

次のように実行すると冬になる。

$ ./vik1 a

次は夏の夜。

$ ./vik1 d

次は冬の夜。

$ ./vik1 ad

トラックの選択もでき、2とすると夏の昼のトラック2、ad3とすると冬の夜のトラック3など。

作者自身によるYouTube動画。

解説

短いコードにもかかわらず、信じられないほど作り込まれている。次はvik1.hintのFeatureの翻訳。

• 道は左右に曲がるだけでなく、丘を登ったり降りたりする
• 地平線の向こうに山がある
• 昼は空に太陽がある
• 夜は空が暗くなり遠くの視界がなくなる
• 冬は雪が降る
• 冬はスリップする
• 車が道を外れると遅くなり、止まる
• 約1分程度のトラックが3種類ある
• スピードメーター
• コンピュータ操作の他の車がいる
• 他の車との衝突判定もする
• ラップ時間を計測する
• 最短ラップ時間を記憶する

struct timevalをint*として扱っている部分が壊れていた（現代ではtime_tが64ビット）ので、そこだけ修正した。 定数は奇妙に使い回されている（トラックの長さと色など）。

パッチ

--- vik1.c +++ vik1.c @@ -17,6 +17,7 @@ Display*K; Pixmap M; char P[99]; int main #define Y(a,b)(a<b?a:b) (int S,char**T){ +struct timeval wait; #define X(a)\ XDrawLine J M,N,D+l a m,o,D+l a n,o), XEvent O I p=E/5; --S&~1? @@ -24,7 +25,8 @@ == ** ++ T,w=A==z[*T],B-=w[z+*T]%3,S:++S; XCopyArea J M,L,N,0,0,e,D,0,0), XSync J 0), -XFlush (K),select(0,0,0,0,U+1)){ I 3[H]=F; p==++r?K= +wait.tv_sec = 0, wait.tv_usec = F, +XFlush (K),select(0,0,0,0,&wait)){ I 3[H]=F; p==++r?K= XOpenDisplay (0),N= XCreateGC J L= XCreateSimpleWindow J RootWindow(K,0),0,0,e=D*2,D,0,0,0),0,0),

パッチをダウンロード