Most Obfuscated X Program

もっとも難読化されたXプログラム

Line wrap

Highlight

  G	int i,j
  K	case
  R	return 0
  S(	x,y) for(x=0; x<y; x++)
  I	S(i,10
  z	I-6)B[t][u
  t	(X[m].b[i].i+g)
  u	(X[m].b[i].j+l)
  M(	x,y) XFillRectangles(D,p,x,a,y);
  s	B[i][j
  W	=XCreateGC(D,p,4,L)
  E(	W,_) k=0; I)S(j,22)if(W s]){ a[k].x=i*20; a[k].y=j*20+30; a[k].w=a[k].h=_; k++; }M(
  A(	W,_) &&!B[W]; if(!j){ z]=1; R; } else{ N(m); _; v(0); }
  Q	]=0; I-6&&j)j=
  F	I-6)B[X[w].b[i].i+g][X[w].b[i].j+l
  e(	x) break; K x:q(c,j,x);
  H	(m){ G; I-6){ a[i].x=t*20; a[i].y=u*20+30; a[i].w=a[i].h=
  v(	_) d(m); z+_]=1; R+1;
struct{
	short x,y,w,h;
} a[220],C;
struct{
	struct{
		G;
	} b[4];
} X[99];
G,l,g=3,p,B[10][22],L[99],o[99],n,r,h,_[4],D,J,T;
f(){
	*L=2;
	n||XSendEvent(D,p,n=1,0,L),XFlush(D);
	P();
}
Z(){
	_[1]=_[3]=(9-h)*40000;
	setitimer(0,_,0);
}
main(){
	G,*_=(int*)X;
	char*c=
"*{ {}*{ {}* {    *{   *{ {* {* * {   {  { *{* {   {* *{ *{ {   * {  { *{   * {  * {   {*   {* { {* {  *    *  ";
	for(; *c; )
		*_++=(unsigned)(*c+++2)%4;
	srand(time(0));
	L[10]=32769;
	D=XOpenDisplay(0);
	L[1]=L[2]=XWhitePixel(D,j=XDefaultScreen(D));
	XMap@p=XCreate@XRoot@j),0,0,200,470,2,0,1,0,2056,L));
	T W;
	L[2]=XBlackPixel(D,j);
	J W;{
		G,O=0,c=0;
		Z(P());
		q(c,c,1);
		for(; ; ){
			i=lK();
			j=c;
			switch(i){
				K 'k':c=q(c="$#&'(%)+,-*/01.3254"[c]-35,j,4)?c:j;
				e('j')e('l')e(32)}
			if(n){
				if(!q(c,j,2)){
					G,n;
					for(j=21;j-1;j--){
						n=1;
						I&&n)n=s];
						n&&(X9(j++),O++);
					}
					n=0;
					I&&!n)n=B[i][21];
					Y();
					r++;
					c=rand()%19;
					if(!q(c,c,3))
						R+puts(L);
						U(Z(h=O/9));
					}
				n=0;
			}
		}
	}
}
Y(){
	G,E(,19)J,k)E(!,20)T,k)U();
}
lK(){
	XNextEvent(D,o);
	switch(*o){
		K 2:R+o[2]?0:XX k){
			G=1;switch(k){
				K 1:z+l]=1;
				d(m);R+1;
				K 'j':z Q t A(t-1][u,g--)K 'l':z Q t<9
				A(1+t][u,g++)K 4:F Q
				u<22&&t>=0&&t<10&&!B[t][u ];
				if(!j){
					F]=1;
					R;
				}
			N(w);
		v(0)K 32:for(;
	q(m,m,2);
	)n=r++;
	R+1;
	K 3:l=0;
	g=3;
	I-6&&j)j=!B[t][u+l ];
	if(!j)R;
	v(l)K 2:z Q(u+1)<22 A(t][u+1,l++)}
	R;
}
X9(_){
	G;
	for(j=_; j; j--)I)s]=s-1];
}
U(){
	void*a=&C;
	C.w=200;
	C.h=30;
	M(T,1);
	sprintf(L,"Score%9d Level%9d",r,h);
	XDrawString(D,p,J,7,15,L,29);}
P(){
	signal(14,f);
}

引用元：https://www.ioccc.org/1993/jonth.c

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

動作

X Window Systemでのテトリス。

$ sed -e s/\^\ /#define/ -e 's/@/Window(D,/g' jonth.c > jonth.tmp.c

$ gcc -DXX1='H 19;}M(J,4)}N H 20;}M(T,4)}q(m,w,' -DXX='XKeycodeToKeysym(D,((XKeyEvent*)o)->keycode,0);K 12:Y();}R;}d XX1' jonth.tmp.c -o jonth -lX11

$ ./jonth

jで左、lで右、kで回転、スペースで落とす。

解説

X11の関数名は長いので、sedコマンドで@をWindow(D,に置き換えるなどをした上でコンパイルすることになっている。それ以外、コードに特筆することはないと思う。

現代で動かすことにとても苦労した。なぜか（難読化のため？）、#include <X11/Xlib.h>をせず、定数は即値で、構造体は配列インデックスで無理やりアクセスしている。関数宣言もないので、返り値は暗黙的にintが仮定されてしまう。 jonth.hintに「intとポインタが同じサイズでないと動かない」と書いてあるとおり（-m32をつけるとX11とリンクできないので使えなかった）。よって、#include <X11/Xlib.h>をしてintをlongに書き換えれば、とりあえず動いた。しかしこれだけではキー入力が効かない。構造体のフィールドをintの配列インデックスで読みだそうとしているが、longに変えたためにずれる模様。このコード断片はMakefileの中にある（サイズ制限回避のため？）。ややこしいので、直接展開した上で修正した。さらに、XSelectInputを指定した。これによってキー操作もできるようになった。ただし、途中でキーボード操作が効かなくなることがある（未調査）。

パッチ

--- jonth.c
+++ jonth.c
@@ -1,4 +1,5 @@
-  G	int i,j
+#include <X11/Xlib.h>
+  G	long i,j
   K	case
   R	return 0
   S(	x,y) for(x=0; x<y; x++)
@@ -35,7 +36,7 @@
 	setitimer(0,_,0);
 }
 main(){
-	G,*_=(int*)X;
+	G,*_=(long*)X;
 	char*c=
 "*{ {}*{ {}* {    *{   *{ {* {* * {   {  { *{* {   {* *{ *{ {   * {  { *{   * {  * {   {*   {* { {* {  *    *  ";
 	for(; *c; )
@@ -45,6 +46,7 @@
 	D=XOpenDisplay(0);
 	L[1]=L[2]=XWhitePixel(D,j=XDefaultScreen(D));
 	XMap@p=XCreate@XRoot@j),0,0,200,470,2,0,1,0,2056,L));
+	XSelectInput(D,p,ExposureMask|KeyPressMask);
 	T W;
 	L[2]=XBlackPixel(D,j);
 	J W;{
@@ -85,7 +87,7 @@
 lK(){
 	XNextEvent(D,o);
 	switch(*o){
-		K 2:R+o[2]?0:XX k){
+		K 2:R+o[2]?0:XKeycodeToKeysym(D,((XKeyEvent*)o)->keycode,0);K 12:Y();}R;}d H 19;}M(J,4)}N H 20;}M(T,4)}q(m,w,k){
 			G=1;switch(k){
 				K 1:z+l]=1;
 				d(m);R+1;

パッチをダウンロード