#define c m[m[0]++] = #define z;break;case char s[5000]; int m[20000]={32},L=1,I,T[500],*S=T,t=64,w,f; a(x) { c L; L= *m-1; c t; c x; scanf("%s",s+t); t+=strlen(s+t)+1; } r(x) { switch(m[x++]){ z 5: for(w=scanf("%s",s)<1?exit(0),0:L;strcmp(s,&s[m[w+1]]);w=m[w]); w-1 ? r(w+2) : (c 2,c atoi(s)) z 12: I=m[m[1]--] z 15: f=S[-f] z 1: c x z 9: f *=* S-- z 7: m[f]= *S--; f= *S-- z 0: *++S=f; f=m[I++] z 8: f= *S --- f z 2: m[++m[1]]=I; I=x z 11: f=0>f z 4: *m-=2;c 2 z 6: f=m[f] z 10: f= *S--/f z 3: a(1); c 2 z 13: putchar(f); f= *S-- z 14: *++S=f; f=getchar(); } } main() { a(3); a(4); a(1); w= *m; c 5; c 2; I= *m; c w; c I-1; for(w=6;w<16;) a(1),c w++; m[1]= *m; for(*m+=512;;r(m[I++])); }

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

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

動作

独自スタックベース言語firstの評価器。次のように使う。

$ gcc -o buzzard.2 buzzard.2.c

$ echo "2 3 + . cr" | cat third - | ./buzzard.2
Welcome to THIRD.
Ok.
5

2 3 + . crがプログラムで、2と3をスタックにプッシュして、それらを足したものに置き換えて（+）、それを10進数表示して（.）、改行を表示する（cr）という意味。

解説

firstは13命令しかない非常にプリミティブなスタックベース言語で、thirdはそれの標準ライブラリ。 実行するときは、firstインタプリタにまずthirdを食わせて、それからプログラムを食わせる。 thirdのソースコードは難読化されていないので、スタックベースプログラミング言語を知っていればそれなりに読める。 上の例の2とか3とかはすべてthirdが規定している。

firstとかthirdとかいう名前はプログラミング言語FORTHの劣化版みたいなネタ。 secondがないのは、5文字を超えるため（FORTHはもともと「4番目の言語」という意味でfourthと名付けたかったが、当時の開発環境ではファイル名が最大5文字だったのでFORTHになったという逸話がある）。 thirdはforth79と大体同じくらいの機能を備えているとか備えていないとか。

スタックベース言語自体が難読なので、コードの難読化自体にそれほど特筆するところはないと思う。 この年の翌年（1993年）に、現代でも有名な難解プログラミング言語であるBrainfuckやBefungeやFalseが登場している。 当時そういうブームがあったのかもしれない。