#define A(c,a,b) t=b;t+=a;_(c) #define B(b,a) P(u,a)t=0;t-=a;R t+=u;t+=1;t/=2;_(b) #define b(x) x(g) #define C ;main(argc,argv)char**argv;{for(;!w;){q=0;l #define c(y) x #define D(c,a,b) t=a;t/=b;_(c) #define d(x) S(x,x,1) #define E(a,d) t=d;t-=p;t*=r;t*=a;p+=t;t=1;t-=a;r*=t; #define e(x) y #define f(x) x(e) #define G(x,y) Q(x,atoi(argv[y])) #define g(x) x(b) #define H Q(w,1)Q(p,0)r=0; #define h(x) x(c) #define i(c,a,b) a(b,b,c) #define J(x) Q(p,x)r=0; #define j(x) Q(f(g),x) #define K(x) Q(x,argc) #define k(x) S(a,y,x) #define L(x) u=p;u-=x;t=u;t*=u;R r+=2;r-=t;r/=2; #define l L(q) q+=1; #define M(c,a,b) t=a;t*=b;_(c) #define m(x) x(a,a) #define n(x) x(a,y) #define O(c,a,b) t=b;t+=1;t+=a;t/=2;Q(c,t) #define o(x,y) M(x,x,y) #define P(b,a) t=a;R _(b) #define R t+=2047;t/=2048;t+=8191;t/=8192; #define Q(a,b) t=b;_(a) #define S(c,a,b) t=a;t-=b;_(c) #define T } #define U(c,a,b) u=b;t=b;t-=1;t*=r;t+=1;b=t;t=a;t/=b;b=u;_(c) #define V int t,u,q,p=0,r,w=0, #define X(y) printf("%x\n",y); #define Z(a,d) t=p;t-=d;t*=a;t+=d;_(p)r*=a; #define _(a) t-=a;t*=r;a+=t; V a,x,y,s C G(f(g),q)G( g(h),2)n(B)Z(a,4)n( P)E(a,1)j(2989)H l k (1)m(B)Z(a,6)l k(h(b)) B(s,a )m(P) Z(s ,8)E (a,q )Q( s,h (g) )Q( f(c ),f (g) )j( s)l i(b (h) ,S, f(b ))n (B) E(a ,2) J(8) l j( x)Q(x,1)l n(P)Z(a,8 )o(x ,g(f))d(f(e))J(5)l j (x)l d(x )S(a ,x, 1)m (B) Z(a ,10 )U( a,y ,x) o(a ,x) k(a )m( P)E( a,7) l j (0) Q(s,1 )l D(a ,x, q)o( a,q)S(a,h(g),a)i(s, M,a)i(a,A,g(f))i(q,D,x )o(s,16)B(a ,x)E(a,9)H l j(2766)H T X(b(f)) T

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

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

動作

3つのアルゴリズムが入っている。1つは階乗計算。第1引数が0のとき、第2引数の階乗を求める。

$ gcc -o buzzard.1 buzzard.1.c

$ ./buzzard.1 0 1
1

$ ./buzzard.1 0 2
2

$ ./buzzard.1 0 3
6

$ ./buzzard.1 0 4
24

$ ./buzzard.1 0 10
3628800

第2引数が1のとき、第2引数の素数判定をする。合成数なら因数を出し、素数ならaceと出す。

$ ./buzzard.1 1 2
ace

$ ./buzzard.1 1 3
ace

$ ./buzzard.1 1 4
2

$ ./buzzard.1 1 5
ace

$ ./buzzard.1 1 100
50

$ ./buzzard.1 1 101
ace

第1引数が2以上のとき、第2引数との最大公約数を求める。

$ ./buzzard.1 4 6
2

$ ./buzzard.1 45 60
15

$ ./buzzard.1 100 101
1

解説

チャールズ・バベッジの解析機関のシミュレータとのこと。 解析機関は、エイダ・ラブレスが世界で初めてプログラミングをしたとされていることで有名。

マクロが解析機関の命令を表現していて、コード部が解析機関のプログラムを表現しているらしい。 命令の詳細はbuzzard.1.hint参照。

マクロを展開してindentコマンドをかけても、解析機関のアセンブリがCに展開されるだけでまるでわからない。 次のようなコードが500行以上続くだけ。

int t, u, q, p = 0, r, w = 0, a, x, y, s;
main (argc, argv)
     char **argv;
{
  for (; !w;)
    {
      q = 0;
      u = p;
      u -= q;
      t = u;
      t *= u;
      t += 2047;
      t /= 2048;
      t += 8191;
      t /= 8192;
      r += 2;
...
      t = 0;
      t -= p;
      t *= r;
      p += t;
      r = 0;
    }
  printf ("%x\n", y);
}

コードの形状は”CB”。 理由は”for obvious reasons”とのことだが、Charles Babbageのイニシャルや、C言語ソースコードを整形するcbコマンド（現代で言うprettier、C-beautifierの略称）などにかけていると思われる。 さらに「Charles Barrettに捧ぐ」とあるが、おそらく作者の身内だろうか。