1002 348B

そんなテクニックも取り入れつつ、微妙に縮めたら 1002 が以前と同じ方針で 348B まで縮んだ。

c(int*a){a=*a-*1[&a];}i;j;d;main(n){int*m;char b[99];for(m=calloc(n=atoi(gets(b)),4);gets(b);i++)for(j=0;b[j];j++)b[j]>81&&b[j]--,m[i]=b[j]>64?10*m[i]+(b[j]-65)/3+2:b[j]>47?10*m[i]+b[j]-48:m[i];qsort(m,n,4,c);for(i=j=0;i<n;i++){for(d=1;i<n&&m[i]==m[i+1];d++,i++);j=d-1?printf("%03d-%04d %d\n",m[i]/10000,m[i]%10000,d):j;}j||puts("No duplicates.");}