imc_orig.c

1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,要用UE去打开.

#include		     <stdio.h> 
#include		     <malloc.h> 
#define I		  " .:\';+<?F7RQ&%#*"
#define a			"%s?\n"
#define n			"0?\n"
#define C			double	
#define o			 char
#define l			 long
#define L			sscanf
#define i			stderr
#define e			stdout
#define r		      exit   (1)
#define s(O,B)	   L(++J,O,&B)!=1&&c>++q&&L(v[q],O,&B)!=1&&--q
#define F(U,S,C,A) t=0,*++J&&(t=L(J,U,&C,&A)),(!t&&c>++q&&!(t=L(v[q],U,\
		   &C,&A)))?--q:(t<2&&c>++q&&!(t=L(v[q],S,&A))&&--q
#define T(E)		(s("%d",E),E||(fputs(n,i),r))
#define d(C,c)		  (F("%lg,%lg","%lg",C,c)))
#define O	   (F("%d,%d","%d",N,U),(N&&U)||(fputs(n,i),r)))
#define D		      (s("%lg",f))
#define E			  putc
					       C
						G=0,
						R
					     =0,Q,H
					    ,M,P,z,S
					     =0,x=0
				 ,        f=0;l b,j=0,	      k
				  =128,K=1,V,B=0,Y,m=128,p=0,N
				 =768,U=768,h[]={0x59A66A95,256
			     ,192,1,6912,1,0,0},t,A=0,W=0,Z=63,X=23
			    ;o*J,_;main(c,v)l c;o**v;{l q=1;for(;;q<
		  c	   ?(((J=v[q])[0]&&J[0]<48&&J++,((_= *J)<99||
		_/2==	   '2'||(_-1)/3=='\"'||_==107||_/05*2==','||_
	      >0x074)?(   fprintf(i,a,v[q]),r):_>0152?(_/4>27?(_&1?(
	     O,Z=N,X=U):  (W++,N=Z,U=X)):_&1?T(K):T(k)):_>103?(d(G,
	R    ),j=1):_&1? d(S,x):D,q++),q--,main(c-q,v+q)):A==0?(A=
  1,f||(f=N/4.),b=(((N-1)&017)<8),q=(((N+7)>>3)+b)*U,(J=malloc(q)
  )||(perror("malloc"),r),S-=(N/2)/f,x+=(U/2)/f):A==1?(B<U?(A=2,V
	=    0,Q=x-B/f,j ||(R=Q),W&&E('\n',e),E(46,i)):(W&&E('\n',
	     e),E('\n',i  ),h[1]=N,h[2]=U,h[4]=q,W||(fwrite(h,1,32,
	      e),fwrite   (J,1,q,e)),free(J),exit(0))):A==2?(V<N?(j?
		(H=V/f	   +S,M=Q):(G=V/f+S,H=M=0),Y=0,A=03):((m&0x80
		   )	   ||(m=0x80,p++),b&&(J[p++]=0),A=1,B++)):((Y
			    <k&&(P=H*H)+(z=M*M)<4.)?(M=2*H*M+R,H=P-z
			     +G,Y++):(W&&E(I[0x0f*(Y&K)/K],e),Y&K?J
			         [p]&=~m:(J[p]|=m),(m>>=1)||/*/
				  (m=128,u--),A==6?exit(1):B<u
				 .	  e=3,l=2*c*/(        m
					     =0x80,
					    p++),V++
					     ,A=0x2
						)
						));
					       }