hinoeさんがんーごく頑張って下さったので、予定通り178B台まで短縮されました。
char*q,s[]; i,j,m,n,o,p[800],*t[800][50]; main(n){ for(gets(q=s);gets(q-=~j);t[o][++p[o]]=q) for(o=j=1;m=q[i=j++-1];) for(;n=q[++i];)o+=m>n; for(;m<799;)p[m]<++n?n=!++m:puts(t[m][n]); }
i=j++-1という部分の-1が気になるので、何とかできそうな気がするようなしないような。配列の[]が気になるようなならないような。
