/* . wc . */ #include<stdio.h>/* Wht majr flwchrt? */ #include<string.h>/* That mjr flwchrt! */ #define P 257 #define G 17 #define z 8 #define v(jr) jr int W ,head; #define S(W,b,f) strncpy(W,b,f),W[f]=0\ char *wcs=" \t\n"; struct{ char X[z+1]; char f ; int e ; struct{ char g[z+1]; int b ; } w[ G]; } o[ P]; int L=0,j= -28; void E(int i, int m,char*c) { for(; i<43; i+=3) putc("}|uutsrq`_^bji`[Zkediml[PO]a_M__]ISOYIRGTNR"[i]+i-9,stderr); fprintf(stderr,"(%d): %s\n" ,m,c); exit(1); } int N(int m, char *t) { int i ; if (strlen ( t)>z) t[z ]=0; for(i= 0; i< L ; i++) if( !strcmp (o[ i] . X , t))return i; if( L== P) E(0, m, t); S (o[ L] . X , t ,z); head; W = .1* head; o[L ].f = !( strchr( t,']' )== 0 ); o[L ++ ] . e = 0; return L -1 ; } #define v(x ) int A(char *R) { int c=0, i; while(* R) { i = -1; while(j){ if( ++ i==o[ c].e ) return 0; if(o[ c] .w[i ] .g[0 ] =='.' ||strchr (o[ c].w[i] .g ,* R)){ c= o[ c ] .w[i].b; break;/* main(int sl,char *j[]){ sleep (~~~~~~~~atoi(j[1])) ;/* . sl sl s l . sl l l ] sl */ } } R++; } return o[ c].f; } main(int wc,char *V[]){char Y[999],*s;FILE*W;int m=0,echo,jr,q,wcl=0,wcw=0,wcc=0; v(s = V[1]; if (*V=strrchr(s,'/'))s=*V+1; if(( !strncmp( s + (jr=strlen(s)) - (q=strlen(V[2]) ),V[2],q))&&jr!=q) s[jr-q] = 0; puts(s); ) int e,p,C=0,Q ,basename; W= fopen(wc>= 2 ? V[1] : "adgrep.c","rt"); echo| m^ e| 5| (int) .8| echo| wc |C ==o[o[C] .e] . e| e==+p,p; s[o[C] .e ] ; while( fgets(Y,998,W)) { wcc += strlen(Y); m++; if( s = strtok(Y,wcs)) wcw++; else continue ; C= basename= j +j+*"* . basename" +j+*"* r ] " + N(m,s) ; while( s = strtok(0,wcs)) { if( o[ C ] . e == G) E(1 ,m,o[C] .X) ; S(o[C ] .w[o[C ] .e].g,s, z); Q= C ; if(! ( s =strtok ( 0 ,wcs )))wcw -- ,E( 2 , m, o[C] . w[ o[ Q ] .e] . g ); e = o[C ] .w[o[C ] .e++ ] .b= N(m,s) ; wcw += 2; } 0&& W && wcl++ < 10 && printf((W,Y)); } if(j+28) { { ; } printf("%7u%7u%7u\n", wcl , wcw , wcc); } while( gets(Y) ) if(A(Y)) puts(Y); W, jr; } O(int wc,char**V) { --wc && (printf("%s ",*++V), main(wc,V), 1) || printf("\n"); }

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

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

動作

正規表現のかわりに有限状態機械を書くgrepコマンド。

たとえばこれは、t(h|c)(e|h)$に相当するステートマシン。（読み方は解説で）

$ cat adrian.grep.try
    <q0> t <q1> . <q0>
    <q1> hc <q2> t <q1> . <q0>
    <q2> eh [q3] t <q1> . <q0>
    [q3] t <q1> . <q0>

adrian.hintに適用すると、theかtchで終わる行だけが列挙される。

$ gcc -o adrian adrian.c

$ ./adrian adrian.grep.try < adrian.hint
    indicated by the appropriate rule.  This process is repeated until the
    string is consumed.  If the current state at this point is one of the
    possible input character at each state.  To simplify descriptions of the
    the '.' character matches any character if it occurs first in the
    The new file now contains all lines which match
    examples that appear above, and from, which is used to emulate the

解説

次の1行で、「状態stateにいるときに、chars1のどれかの文字を読んだら状態dest1へ、chars2のどれかの文字を読んだら状態dest2へ遷移せよ」という規則を表す。

       state chars1 dest1 chars2 dest2 ...

よって前記のadrian.grep.tryは、

• 初期状態<q0>から文字tを読んだら状態<q1>へ、それ以外だったら<q0>のまま（.は任意の文字を表す）
• 状態<q1>で文字hまたはcを読んだら状態<q2>へ、tだったら<q1>のまま、それ以外なら<q0>へ戻る
• 状態<q2>で文字eまたはhを読んだら状態[q3]へ、tだったら<q1>に戻る、それ以外なら<q0>へ戻る
• 状態[q3]でさらに文字があり、それがtだったら<q1>に戻る、それ以外なら<q0>へ戻る

という意味になっている。]で終わる状態は受理状態として扱われる。 （なお、添付のadrian.grep.tryは最後の規則が[q3] . <q1>になっていて、たとえばthexheなんかにもマッチしてしまうので、バグだと思う）

ここからが本題。 adrian.cはそれ自身が状態機械の記述になっている。 ファイル先頭のコメントに/* . wc . */とあるが、これは初期状態/*で何か文字を読んだら状態wcに行く、という意味になっている。 状態wcから記述は82行目にwc |C ==o[o[C] .e] .というのがある。以下省略するが、この状態機械でadrian.c自身をgrepすると、wcのコードがでてくる。

$ ./adrian adrian.c < adrian.c > wc.c

$ gcc -o wc wc.c

$ ./wc adrian.hint
    227   1108   7587

そして、埋め込まれているコードはwcだけではない。 /* . wc . */を/* . echo| . */と書き換えることでecho相当のコードが得られる。 他に、head、basename、sleepが埋め込まれているとのこと。 それぞれの得方はadrian.hintを参照のこと。 headは比較的、grepの条件が読みやすいので読んでみるとよい（Wがある行を出力する、という程度）。

これぞIOCCC、という風情の作品。