DNA Sorting

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が気になるので、何とかできそうな気がするようなしないような。配列の[]が気になるようなならないような。