■

makeplex salon：あなたのスキルで飯は食えるか？　史上最大のコーディングスキル判定
http://www.itmedia.co.jp/enterprise/articles/1004/03/news002.html

の解答。354バイト。短くする所に特に力入れた。
gccでコンパイル、stdinから入力、stdoutに出力。

所要時間: 最初のコード:30分、短くするの:今日の移動時間のほとんど(烏山→川崎)。

なんというか、ある意味すごく自分らしいコードなので、充実感があります...

#define Q ,C^=1,M>++V||F(V,v,f-C,i,L+sprintf(S+L,"(%d%d%d)\0[%d%d]\0  (%d%d)\0  [%d]"+C*9,i,i
#define P M,v,f,i,L,V,C)long long v;
char S[99];F(P{if(!((f|(v-=0LL+V<<i*5)?:puts(S))&0x842108421084210LL))for(i=V=10;v*--i;C=0 Q),2)Q+1,i+2),1057)Q+1),33)Q,i),3)Q+2),1025));}main(P{for(v=L=0,i=13;i--;v+=1LL<<getchar()*5-240);for(i=10;--i;V=f=C=3 Q),2)Q),1));}

適当に改行入れたver:

#define Q ,C^=1,M>++V||F(V,v,f-C,i,L+sprintf(S+L,\
"(%d%d%d)\0[%d%d]\0  (%d%d)\0  [%d]"+C*9,i,i
#define P M,v,f,i,L,V,C)long long v;
char S[99];F(P{if(!((f|(v-=0LL+V<<i*5)?:puts(S))&0x842108421084210LL))
for(i=V=10;v*--i;C=0 Q),2)Q+1,i+2),1057)Q+1),33)Q,i),3)Q+2),1025));}
main(P{for(v=L=0,i=13;i--;v+=1LL<<getchar()*5-240);
for(i=10;--i;V=f=C=3 Q),2)Q),1));}

七対子は非対応ですw