char*_ = "'""/*"; #include <stdio.h> #define m 21 #define o(l, k) for(l=0; l<k; l++) #define n(k) o(T, k) int E,L,O,R,G[42][m],h[2][42][m],g[3][8],c [42][42][2],f[42]; char d[42]; void v( int b,int a,int j){ printf("\33[%d;%df\33[4%d" "m ",a,b,j); } void u(){ int T,e; n(42)o( e,m)if(h[0][T][e]-h[1][T][e]){ v(e+4+e,T+2 ,h[0][T][e]+1?h[0][T][e]:0); h[1][T][e]=h[ 0][T][e]; } fflush(stdout); } void q(int l ,int k,int p){ int T,e,a; L=0 ; O=1; while(O ){ n(4&&L){ e= k+c[l] [T][0]; h[0][L-1+c[l][ T][1]][p?20-e: e]=-1; } n(4){ e=k+c[l][T][0]; a=L+c[l][T][ 1]+1; if(a==42 || h[0][a][p?20-e:e]+1){ O=0 ; } } n(4){ e= k+c[l][T][0]; h[0][L + c[l][ T][1]][p?20-e: e]=g[1][f[p?19+l:l]]; } L++; u(); } n(42) { o(e,m)if(h[0][T][e]<0)break; o(a, m&&e==m){ for(L=T; L; L--) { h[0][L][a ]=h[0][L-1] [a ]; } h[0][0][a]=-1; } } u(); }int main(){ int T,e,t,r,i,s ,D,V,K; printf("\33[2J\33[?25l"); n(8)g[i= 1][T]=7-T; R--; n(42) o(e,m) G[T][e]--; while(fgets(d,42,stdin)) { r=++ R; n(17){ e=d[T]-48; d[T]=0; if ((e&7)==e) { g[0][e] ++; G[R][T+2]=e; } } } n(8)if(g[0][7-T]){ t=g[i ][O]; g[i][O++]=g[i][T]; g[i][T]=t; } n(8) g[2][g[i][T]]=T; n(R+i)o(e,m )if(G[T][e]+i) G[T][e]=g[2][G[T][e]]; n(19 )o(t,2){ f[T+t+T]=(T["+%#,4" "5>GP9$5-,#C?NX"]-35)>>t*3&7; o(e,4){ c[T] [e][t]=("5'<$=$8)Ih$=h9i8'9" "t=)83)l4(99(g9>##>4(" [T+t+T]-35)>>e*2&3; } } n(15) { s=T>9?m:(T&3)-3?15:36;o(e,s)o(t,2)c[T+19][e][t]="6*6,8*6.608.6264826668\ 865::(+;0(6+6-6/8,61638065678469.;88))()3(6,8*6.608.6264826668865:+;4)-*6-6/616365,\ -6715690.5;,89,81+,(023096/:40(8-7751)2)65;695(855(+*8)+;4**+4(((6.608.626482666886\ 5:+;4+4)0(8)6/61638065678469.;88)-4,4*8+4(((60(/6264826668865:+;4-616365676993-9:54\ +-14).;./347.+18*):1;-*0-975/)936.+:4*,80987(887(0(*)4.*""/4,4*8+4(((6264826668865:\ +;4/4-4+8-4)0(8)6365678469.;88)1/(6*6,6.60626466686:8)8-8*818.8582/9863(+;/""*6,6.6\ 0626466686:4(8)8-8*818.8582/9863(+;/,6.60626466686:8-818.8582/9864*4+4(0())+;/.6062\ 6466686:8/8380/7844,4-4*4+4(0())69+;/0626466686:818582/9864.4/4,4-4*4+4(0())+;" [e+E +e+t]-40; E+=s+s; } n(45){ if(T>i) { v(2,T,7); v(46,T,7); } v(2+T,44,7); } T=0; o(e, 42)o(t,m)h[T][e][t]--; while(R+i) { s = D=0; if (r-R) { n(19) if (G[R+i][T]+i) V=T/2 ; else if(G[R][T]+i) s++; if(s) { if(V>4){ V=9-V; D++; } V+=29; n(20) q(c[V][T][0],c [V][T][i],D); } } n(19) if((L=G[R][T])+i) { O=T-L; e=O>9; t=e?18-O :O; o(K,((t&3)-3? 16:37)){ if(K){ L=c[t+19][K-i][0]; O=c[t+19][K-i][i] ; } q(L,O,K && e); } } if(s) q( c[V][20][0], c[V][20][i], D); R--; } printf("\33[47;1f\33[?25h\33[40m"); return 0; }

引用元：https://www.ioccc.org/2013/birken/birken.c

審査員・作者による説明：https://www.ioccc.org/2013/birken/hint.html

動作

テトリスで絵を描く。

$ gcc -o birken birken.c

$ ./birken < examples/ioccc.txt

すごい勢いで自動プレイが進み、積み上がっていって、絵が作り上げられていく。

元のファイルは次の通り。

$ cat examples/ioccc.txt
4 1111111111177 4
      11177
4     11177     4
      11177
4     11177     4
  1111111111177
4               4
  1111111111177
4 111177 111177 4
  111177 111177
4 111177 111177 4
  1111111111177
4               4
  1111111111177
4 1177          4
  1177
4 1177          4
  1111111111177
4               4
  1111111111177
4 1177          4
  1177
4 1177          4
  1111111111177
4               4
  1111111111177
4 1177          4
  1177
4 1177          4
  1111111111177
4               4

他にもレイアウトファイルがたくさん添付されている。

解説

L型、J型、T型のブロックのはみ出したところで1ドットを描く。 残った部分は行を埋めて消す。 下にブロックがないところには単純には置けないので、一旦足場を作って1行分を描き、最後に足場を消すということもする。 動きのパターンはあらかじめ計算していて、文字列リテラルで埋め込まれている。

L型、J型、T型の3色しか描けない。 ファミコン時代のゲームのキャラクター（通常3色＋透明色の4色）を描くのが目標だったので十分とのこと。 横幅も16ドットの絵を描けるよう、21列になっている。 足場などのために左右の2列の空きが必要で、20列では消せない（1ドット分を除くと、消すべきブロックが奇数個になってしまう）ので、もう1列ふやしたとのこと。

コード形状はテトリス風。 T型ブロックを選んだのは、テトリスのT。 過去のIOCCC作品には四角いコードが多くあったので、それを作る寸前の状態を表現したとのこと。

変数名はint T,e,t,r,i,sや、int E,L,O,R,G（テトリスの版権を持っていたソ連の外国貿易協会）、D,V,K（ソ連のPDP-11互換機）など。

この年から導入されたコードサイズ測定ツールのiocccsizeのバグをついている。 char*_ = "'""/*";と、文字列中にコメント開始を入れることで、その後が全部スキップされるので、8バイトと測定されるということ。 なお、審査員自身が次のように書けば0バイトになることを指摘している。

/* *\
/....

審査員のコメントでは、テトリスは計算複雑性の研究からPTSDの治療までいろいろ使われているので、お絵かきはすばらしいアイデアだろう、とのこと。