#include <stdio.h> #include <malloc.h> #define ext(a) (exit(a),0) #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 ext (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),ext(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?ext(1):B<u . e=3,l=2*c*/( m =0x80, p++),V++ ,A=0x2 ) )); }

引用元：https://www.ioccc.org/1992/imc.c

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

動作

マンデルブロ集合。画像での表示とテキストでの表示がある。

画像での表示は、Sun Rasterという、いにしえのフォーマットで出力される。 しかもx86だとヘッダがリトルエンディアンで出てしまうので、ビッグエンディアンに直す必要がある。 直したあとは、imagemagickを使えばpngなどに変換できる。 端的には、次のように実行すればよい。

$ gcc -m32 -o imc imc.c

$ ./imc | ruby -e 'print $<.read.unpack("N8C*").pack("V8C*")' > tmp.sun

$ convert tmp.sun tmp.png

次のようにコマンドラインオプションをつけると、テキストで表示される。

$ ./imc -text

.** ************     ** * * *   **** *  *****                 **
.** ***********   ***   **       * ***** ****                 **
.* **********   ****     *         *  ** *****                 *
.* ********* ******    *                * ****                 *
.********  **  **   **                  * *****                *
.*****    * * ** ***                   ** *****                *
. **     ** ** * ***                   **  *****
.**     *****     **                   **  *****
.*     ******      *                  * *  *****
.     *  *  *       *                 * *  *****
. * ** ****                             *  *****
.                                     * *  *****
. * ** ****                             *  *****
.     *  *  *       *                 * *  *****
.*     ******      *                  * *  *****
.**     *****     **                   **  *****
. **     ** ** * ***                   **  *****
.*****    * * ** ***                   ** *****                *
.********  **  **   **                  * *****                *
.* ********* ******    *                * ****                 *
.* **********   ****     *         *  ** *****                 *
.** ***********   ***   **       * ***** ****                 **
.** ************     ** * * *   **** *  *****                 **

解説

プログラム側でエンディアンを直したければ、プログラムの中頃にある0x59A66A95,256,192,1,6912,1,0,0というヘッダデータのエンディアンを反転させて次のようにすれば修正できると思う。 しかし長くなってしまい、意匠が壊れるのでパッチは避けた。

h[]={2506794585,65536,3221225472,16777216,1769472,16777216,0,0}

コマンドラインオプションが結構充実していて、描画位置やサイズを変更できたり、ジュリア集合もかけたりする。 詳しくはimc.hint参照。

hintの中でおすすめされているコマンドの出力は次の通り。

$ ./imc -s 512,512 -f 600000 -l 512 -m 16 -c.00805,.74274 | ruby -e 'print $<.read.unpack("N8C*").pack("V8C*")' > tmp2.sun

$ convert tmp2.sun tmp2.png

$ ./imc -s512,512 -j-.523,-.535 | ruby -e 'print $<.read.unpack("N8C*").pack("V8C*")' > tmp3.sun

$ convert tmp3.sun tmp3.png

ここまでマンデルブロ集合がなかったのはちょっと意外。 発見が1978年で流行が1980年代中頃らしい。