#include <stdio.h> #include <unistd.h> #include <time.h> #define p return #define X typedef #define E { #define B } #define stup(y)printf("%.11s\n",(char*)y); #define $ printf("\x1b" #define G(y)usleep(y);fflush(stdout); #define O __DATE__+7 #define K printf( X unsigned short P; X int _; _ s=41456; //Sleeping time factor X char H; _ o,b,a,f,g,k, m; // Oh, be a fine girl, kiss me FILE *W; X enum {T,F} z; //True & False X double w; _ a5_, N = 11,A4=1<<3,a8_=17,A8=2*2,aI_=~-(__FLT_MAX_EXP__<<F); H l[]="uDSYT8|TCPZ8|TVCTKp]X^EY|XKPC8aYTRUPp]ZPXU";H I[]="Fo~y*lcdn*yego*Oky~ox*ommy";/* /\ c_ [9]; alpha Ursae Minoris A main */_ a1, a3 ,a4= 024;P a2 ,a5;w Z( w D,_ Y)E if(Y ==T)p F;if(Y ==!0)p D; w b= Z(D,Y/2);if(Y>2 /* alpha Ursae Minoris Ab*/ )p b*b*D;p b*b ; B _ u(_ x) E if( x <2)p F;p x*u(x-unix); B /*alpha Ursae Minoris B*/ _ vir(H __[]) E _ e, q=0;for(e=T;e[__];e++) q=q* -~9+__[e]-48;p q;B P A (H *a7_, _ a6_ );w V(_ v ,_ i){v%=0550;w D='-'-'-'; for(i-=i;i^__CHAR_BIT__;i++ )D+=Z(_POSIX_TRACE,i)*Z(0x1.1df46a226e211p-6 *v,2*i)/u(2*i);p D;B _ main(a6,n)_ a6;H**n;E _ a7,A1,a1_,a8,t, A6,D,Y;size_t a3_;_ A2[]=E'q',W_OK,5911774,'y',13,1052160,77,15,1709568,'5',a8_,1314816,34,18,1446400 ,91,22,1314816,12,28,F_OK B;time_t j =time(NULL);a4 *= '_' ;float and [] =/*trolling is a art */ E 4612954808543207739097088.0, 207.285645, 214354950132336733650542884425029386240.0 B ; struct tm R = *localtime (&j) ;for (;t=aI_ ,a5_[l];) l[a5_++] ^=-~__LINE__ ; A6=a4 += R.tm_year;a4 /='d';ssize_t A3 =1;k=A6/'d',b=k/A8,a=k%4,o=(k-((k+A4)/25)+1)/F_TEST ,m=(19*(A6%a4 )+k-b-o+__DBL_DIG__)%30,k=(A6%'d')/R_OK;H*a2_=NULL;f=(A6%'d')% R_OK,g=(' '+2*a+SEEK_END*k-m-f)%7,k=__ATOMIC_SEQ_CST;W=fopen(__FILE__, "r" ); $"[40m\033[2J\033[;H\x1b[?25l");if(*(H *)(_[])E X_OK B)stup (and)A3 =getdelim(&a2_,&a3_,'\0', W);b=((A6%19)+N*m+22*g)/(N* ')'),o=m+g-(~-A4)*b+'r',D=o/31;for(;a1[I];a1++,a5_=0xb3) I[a1 ]^= '-'-'#';Y=o% ~-' ' +F;for(a3 =T;a3<A3 ;++ a3 )a2 =(a2 +a2_[a3 ])%255,a5 =(a5 +a2 )%t; if((a5 <<8|a2 )^s) goto a4_;$ "[1;12H " ) ;G(a4 *s)a4 ^=a4 ;k*=2172211;while(a5_-->-1) E $ "[40m\x1b[2J");for(a6=W_OK;a6<025;a6 +=3) E a7 = A2 [ a6 -__FLT_RADIX__ ] - 0102, a8 =k + a6 [A2],a1 = A2[~-a6 ] *0x1.db6db6db6a92ap+0 ; a1-=~-__DBL_DIG__,a1_=a7 *V(a5_,_XOPEN_VERSION ) - a1*V(90-a5_,a7 )+66,A1 =(a7*V(90-a5_,a1 ) +a1 *V ( a5_,a8 )+0xe)/1.8571428571;if(A1 >T&&a1_>0) E $"[3" "8;2;%d;%d;%dm", (a8>> 16 )&t,(a8>>8)& 255,a8 &t);$ "[%d;%dH%c %.*s",A1,a1_ ,a5_>90?46:111,6,a5_>45 ?"":l+ ((a6-F_TLOCK) / __ATOMIC_RELEASE)*6); B B G(u(A4 ) )B/**/ a4_:$ "[H\x1b[0m" "\x1b[?25h") ;if( ( D^ (R.tm_mon+1)) == (Y-= R./* */ tm_mday) ) E K "%s\n",I);B K "" "%d\n", vir(O) );p a4 ;B //END\ OF THIS ENTRY IS\ N E A R SO NEAR\ .***** ******\ **** ***\ . .

引用元：https://www.ioccc.org/2018/poikola/prog.c

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

動作

北斗七星のアニメーションをする。

$ gcc -o prog prog.c

$ ./prog

端末の24ビットカラーの機能を使って、なるべく実際の星の色に近い色で表示される。

解説

天文学者のアニー・ジャンプ・キャノンが行ったスペクトル分類にしたがって色付きで北斗七星をアニメーションする。

審査員がコメントで書いている”Oh, Be A Fine Gal/Gentlemen, Kiss Me!”は、スペクトル分類のO、B、A、F、G、K、Mを暗記するためのフレーズ。

Fletcher-16のチェックサムアルゴリズムで自分自身を検証するので、下手にソースコードを編集すると動かなくなる。 とは言え、fopen(__FILE__)しているだけなので、一旦プリプロセスを通したソースコードを作ってしまえば回避できる。

復活祭（イースターの日）に実行すると最後に”Lets find some Easter eggs”というメッセージが出る。 時計を変えなくても、プリプロセスしたソースコードを編集してtime_t j = 1522584000;とすれば確認できる。

コードは星型形状。 __ATOMIC_SEQ_CSTのような定数を無意味に利用してわかりにくくしている。 Pascal風にbegin;とend;で書きたかったが、サイズの都合上B/Eのマクロになっている。 printf()は$のマクロになっている。 47行目の巨大なfloat型の数字は、IEEE 754の浮動小数点数を文字列として解釈すると、起動直後のメッセージになっていることがわかる。

$ ruby -e 'p [4612954808543207739097088.0, 207.285645, 214354950132336733650542884425029386240.0].pack("f3")'
"25th IOCCC!\x7F"

このプログラムには少なくとも3つの機能がある、とされているが、これはちょっと明確にはわからない。 北斗七星の描画、復活祭の日の判定、チェックサムアルゴリズム、でよいのだろうか。