#define p struct c #define q struct b #define h a->a #define i a->b #define e i->c #define o a=(*b->a)(b->b,b->c) #define s return a;}q* #define n (d,b)p*b;{q*a;p*c; #define z(t)(t*)malloc(sizeof(t)) q{int a;p{q*(*a)();int b;p*c;}*b;};q*u n a=z(q);h=d;i=z(p);i->a=u;i->b=d+1;s v n c=b;do o,b=i;while(!(h%d));i=c;i->a=v;i->b=d;e=b;s w n o;c=i;i=b;i->a=w;e=z(p);e->a=v;e->b=h;e->c=c;s t n for(;;)o,main(-h),b=i;}main(b){p*a;if(b>0)a=z(p),h=w,a->c=z(p),a->c->a=u, a->c->b=2,t(0,a);putchar(b?main(b/2),-b%2+'0':10);}

引用元：https://www.ioccc.org/1985/august/august.c

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

動作

2進数表記で素数を列挙する。

$ gcc -o august august.c

$ ./august

10
11
101
111
1011
1101
10001
10011
10111
11101
11111
100101
...

解説

初の数学ネタの作品。

関数ポインタと再帰とループとリスト構造が無駄に駆使されたプログラムが本体であり、それをマクロで圧縮している。 struct bやstruct cと変数名bやcがいやらしい形で同居しており、賞名の通り、かなり見通しが悪いプログラムとなっている。

素数列挙アルゴリズム自体は、試し割りだと思う。 これまでの発見した素数のリストを保持していて、このリストを再帰呼び出しを使ってそのリストをたどりつつ、リストのノードが持つ素数で割り切れたら検査対象の数を1増やして再挑戦する、ということを行っている。 全貌をきちんと理解できていないが、リストをたどるのは関数vであり、末端に到達したら関数uによってインクリメントする、という構造になっている。 2進数表記はmain関数の再帰で実現している。