Best game

最高のゲーム

Line wrap

Highlight

long h[4];t(){h[3]-=h[3]/3000;setitimer(0,h,0);}c,d,l,v[]={(int)t,0,2},w,s,I,K
=0,i=276,j,k,q[276],Q[276],*n=q,*m,x=17,f[]={7,-13,-12,1,8,-11,-12,-1,9,-1,1,
12,3,-13,-12,-1,12,-1,11,1,15,-1,13,1,18,-1,1,2,0,-12,-1,11,1,-12,1,13,10,-12,
1,12,11,-12,-1,1,2,-12,-1,12,13,-12,12,13,14,-11,-1,1,4,-13,-12,12,16,-11,-12,
12,17,-13,1,-1,5,-12,12,11,6,-12,12,24};u(){for(i=11;++i<264;)if((k=q[i])-Q[i]
){Q[i]=k;if(i-++I||i%12<1)printf("\033[%d;%dH",(I=i)/12,i%12*2+28);printf(
"\033[%dm  "+(K-k?0:5),k);K=k;}Q[263]=c=getchar();}G(b){for(i=4;i--;)if(q[i?b+
n[i]:b])return 0;return 1;}g(b){for(i=4;i--;q[i?x+n[i]:x]=b);}main(C,V,a)char*
*V,*a;{h[3]=1000000/(l=C>1?atoi(V[1]):2);for(a=C>2?V[2]:"jkl pq";i;i--)*n++=i<
25||i%12<2?7:0;srand(getpid());system("stty cbreak -echo stop u");sigvec(14,v,
0);t();puts("\033[H\033[J");for(n=f+rand()%7*4;;g(7),u(),g(0)){if(c<0){if(G(x+
12))x+=12;else{g(7);++w;for(j=0;j<252;j=12*(j/12+1))for(;q[++j];)if(j%12==10){
for(;j%12;q[j--]=0);u();for(;--j;q[j+12]=q[j]);u();}n=f+rand()%7*4;G(x=17)||(c
=a[5]);}}if(c==*a)G(--x)||++x;if(c==a[1])n=f+4**(m=n),G(x)||(n=m);if(c==a[2])G
(++x)||--x;if(c==a[3])for(;G(x+12);++w)x+=12;if(c==a[4]||c==a[5]){s=sigblock(
8192);printf("\033[H\033[J\033[0m%d\n",w);if(c==a[5])break;for(j=264;j--;Q[j]=
0);while(getchar()-a[4]);puts("\033[H\033[J\033[7m");sigsetmask(s);}}d=popen(
"stty -cbreak echo stop \023;cat - HI|sort -rn|head -20>/tmp/$$;mv /tmp/$$ HI\
;cat HI","w");fprintf(d,"%4d on level %1d by %s\n",w,l,getlogin());pclose(d);}

引用元：https://www.ioccc.org/1989/tromp.bsd.c

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

動作

端末でテトリス。

$ gcc -O -o tromp.bsd tromp.bsd.c

$ ./tromp.bsd

デフォルトの操作方法は、jが左、lが右、kが回転、スペースが落とす、pがポーズ、qが終了。

解説

端末のエスケープシーケンスを使った初の作品で、Best game枠の最初の作品。

コマンドラインの第1引数で落下速度を、マンドラインの第2引数で操作方法を変えられるとのこと（無指定の場合は2秒とjkl pqが指定されたという扱い）。

ハッカーの遊びでテトリスと言うと退屈に感じてしまうかもしれない。しかしテトリスが世界的に売られ始めたのは1988年ごろなので、当時はブームの最中ということになる。この作品がテトリスをハッカーの遊びの定番ネタとするのに一役かったのかもしれない。

端末でポータブルにゲームを作るというのは意外と難しい話で、BSD版とSystem V版が用意されている。現代のLinuxはSystem Vに近いので、後者のほうが動かしやすいかもしれないが、BSD版でも少しの修正で動作した。次の変更が必要だった。

sigvecをsigactionに置き換えた。
関数ポインタをintに変換している箇所をlongに置き換えた。なお、sigactionに与える関数ポインタであるせいか、-m32ではうまく動かなかった。
グローバル変数の初期値として関数へのポインタを与えることもできなくなっていたので、main関数の先頭で初期化するように変えた。

なお、-Oをつけないと動作しなかった。おそらくまだ修正が必要なのだと思うが、詳しくは調べていない。

余談だが、このコードはscreenコマンドのテストコードとして含まれているので、screenをインストールしている環境では知らないうちに入っていることもある。 Ubuntu 20.04では/usr/share/doc/screen/terminfo/tetris.cに置かれていた。

パッチ

--- tromp.bsd.c
+++ tromp.bsd.c
@@ -1,4 +1,4 @@
-long h[4];t(){h[3]-=h[3]/3000;setitimer(0,h,0);}c,d,l,v[]={(int)t,0,2},w,s,I,K
+long h[4];t(){h[3]-=h[3]/3000;setitimer(0,h,0);}long c,d,l,v[]={0,0,2},w,s,I,K
 =0,i=276,j,k,q[276],Q[276],*n=q,*m,x=17,f[]={7,-13,-12,1,8,-11,-12,-1,9,-1,1,
 12,3,-13,-12,-1,12,-1,11,1,15,-1,13,1,18,-1,1,2,0,-12,-1,11,1,-12,1,13,10,-12,
 1,12,11,-12,-1,1,2,-12,-1,12,13,-12,12,13,14,-11,-1,1,4,-13,-12,12,16,-11,-12,
@@ -6,8 +6,8 @@
 ){Q[i]=k;if(i-++I||i%12<1)printf("\033[%d;%dH",(I=i)/12,i%12*2+28);printf(
 "\033[%dm  "+(K-k?0:5),k);K=k;}Q[263]=c=getchar();}G(b){for(i=4;i--;)if(q[i?b+
 n[i]:b])return 0;return 1;}g(b){for(i=4;i--;q[i?x+n[i]:x]=b);}main(C,V,a)char*
-*V,*a;{h[3]=1000000/(l=C>1?atoi(V[1]):2);for(a=C>2?V[2]:"jkl pq";i;i--)*n++=i<
-25||i%12<2?7:0;srand(getpid());system("stty cbreak -echo stop u");sigvec(14,v,
+*V,*a;{*v=(long)t;h[3]=1000000/(l=C>1?atoi(V[1]):2);for(a=C>2?V[2]:"jkl pq";i;i--)*n++=i<
+25||i%12<2?7:0;srand(getpid());system("stty cbreak -echo stop u");sigaction(14,v,
 0);t();puts("\033[H\033[J");for(n=f+rand()%7*4;;g(7),u(),g(0)){if(c<0){if(G(x+
 12))x+=12;else{g(7);++w;for(j=0;j<252;j=12*(j/12+1))for(;q[++j];)if(j%12==10){
 for(;j%12;q[j--]=0);u();for(;--j;q[j+12]=q[j]);u();}n=f+rand()%7*4;G(x=17)||(c

パッチをダウンロード