#include <stdio.h> #include <stdlib.h> #include <string.h> #define r char S; T R; I N, G, s #define A(P,O) for(P=O; *P; P=U(P)) typedef char T[128],*I,p[2400]; #define memset (I)\ memset void*P= strcpy ; I Q(); typedef const void*f; int u(f P,f O){ return strncmp ((I)P,(I)O,1); } T g,c={ 127} ; char l,F[6000000]; I U(I P){ r; strncpy (R,P,2); s= strchr ( strcpy (P,c),0) ; strncpy (P,R,2); return s; } T q,B,E; I t(I P){ r; qsort (P, strlen (P),1,u); if(s= strstr (P,c))*s=0; return P; } T a={ 2} ; void D(){ r; S=1; strcpy (R,c); t(F); for(; memset (E,S,l), (S= strlen ( strcat (R,c)))<*R; t(s))for(s=B; N= strstr (F,E); s=F) * memset (N,*c,l)=S; } p H="(*&,.",k; I j(I P){ r=(I) malloc ( strlen ( strcat (P,"\177 "))); * strstr (P,c)=0; return strcpy (s,P); } int K(f P,f O){ return u(O,P); } void b(){ qsort (F, strlen (F),1,K); } void n(I P){ r; A(P,P){ if(N= strchr (F,*P)); else{ t(F); b(); memset (B,l,*F); N=F; while(* strrchr (B,l)=0, *P<=(S= strlen (B))){ * memset (E,S,l) =*c; strcat (F,E); } memset (B,0,S); } *N=*c; } D(); } void C(I P,I O){ r; A(P,P)A(s,O){ * strrchr ( memset ( strchr ( memset ( strncpy (k,B,254),l,*P),0),l,*s),l)=0; *q= strlen (k) ; strcat (F,q); } D(); } T i="\13<\f="; void o(I P){ A(P,P){ * strrchr ( memset (B,*c,*P),*c) =0; memset (B,0, *P= strlen (B)); } } int V(f P,f O){ return u(*(I*)P,*(I*)O); } void e(I O){ r; strcpy (H,O) ; strcpy (R,c); for(; 0< strncmp (F,H,1) ; strcat (R,c))A(s, H) memset (B,0, *s= strlen ( strcat ( memset (B,*c,*s),c))); *k=0; do{ while (0<= strcmp (F,H)){ n(H); b(); *q= strlen (R) ; strcat (k,q); } * strrchr (R,*c)=*B; o(H); } while(*R); } char d(I P){ if(P= strstr (P,g)){ if((*g= getchar ())<*i)' '<*g?o(g):d(" "); } else P=B; return*P; } I m(I P){ qsort (P, strlen (P),1,K); return*P==*c?U(P):P; } void J(I P){ r=m(P); if(P<s) putchar ('-') ; memset (B,l,*s); do{ *E=*i; if(N= strchr (s, *q= strlen (B))) t( memset ( memcpy (E,i,l),*c, strspn (N,q))) ; putchar (*E); * strrchr (B,*B=l)=0; } while (*B); puts (B) ; free (P); } I M(){ r=Q(),P,O; while(S=d(".)$")){ N=Q(); G= strcpy (F,B); P=m(s); O=m(N); if(S==')'){ C(P,O); } else{ strcpy (F,P); e(O); if(S=='.')G=k; else O=N; } free (s); G=j(G); s= strcat (G,P==s==(O==N)?B:c) ; free (N); } return s; } I h(){ r,P,O; for(N=M(); S=d("*,"); N= strcat (s,S?c:B)){ G=M(); P=m(N); O=m(G); S=O==G==(S==','); if(P==N==S) if( strcmp (P,O)<0) { strcpy (F,O); n(P); } else{ strcpy (F,P); n(O); S=N<P; } else{ strcat ( strcpy (F,P),O); D(); } s=j(F); free (N) ; free (G); } return N; } I Q(){ r; if(S=d(",")) if(N= strstr (s=Q(),c))*N=*B; else strcat (s,c); else if(d("'")){ s=h(); S=d("("); } else{ strcpy (F,B); while(*q=d(i)) { strcpy (H,F) ; memset ( strncpy (F,B,l),S=1, strcspn (i,q)); C(H,a); } s=j(F); } if(!S){ o( strcpy (F,"tzouby!fssps")) ; puts (F); } return s; } int main(int P,I*O) { qsort (O,P,sizeof*O,V); l=1<P? strtol (*O,0,l):10; C(H, i); strcpy (i,F); d(g); while(!d("\377"))for(J(h()); !d("\377\n"); d(g)); return 0; }

引用元：https://www.ioccc.org/2013/robison/robison.c

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

動作

多倍長整数に対応した電卓。

$ gcc -o robison robison.c

$ echo '1*2*3*4*5*6*7*8*9%1000' | ./robison
880

$ echo '100000000000000000000*(20*(1+(99477941840441*50)))/31664812345028528' | ./robison
314159265358979333767

解説

コード形状は、ライブラリ関数（主に文字列・メモリ関係）を特徴的に並べている。

hint.textがポエム調になっている。 おもしろいが、ちょっと理解に自信がない。 四則演算もビット演算もポインタ演算も配列参照もしないという制約で書かれている。 基本的に上から下に流れていくだけのフローだが、qsort()によってチューリング完全にしている（と書かれていると思うが、できないと思うし、for文も使用されているのでよくわからない）。

コマンドライン引数で基数を指定できる。 ただし、argv[1]は配列参照だから使ってはいけないので、argvをqsortして先頭を拾う。 普通に./robison 17と起動すると、argv[0]が./robisonで、17より先に来てしまうのでダメ。 次のように起動すると17進数で計算ができる（babbageとcafeとfadはhint.textに書いてあった例）。

$ echo "babbage / cafe" | PATH=. robison 17
fad

“translate from Urdu to Tzouby?”（ウルドゥー語からTzoubyに翻訳せよ）という謎のフレーズがあるが、Tzoubyはコード中にある"tzouby!fssps"という文字列を指していると思う。 これはASCIIコードを1引くと"syntax error"という文字列になる。

$ echo "babbage / nix" | PATH=. robison 17
syntax error
Segmentation fault

審査員コメントは通常、一通りの使用法に言及するのだが、基数指定は言及されていない。 審査員が見落としているか、または意図的に情報を隠したか。