PKU1002(4)

前回の1002番での最短コードの記録を
id:Ozyさんに抜かれたので気合で再圧縮(225B)！

一番大きいのがgetsの削除。変わりに改行を自分で検出するコードにする。
これで結果としてfor文も一つ削除できた。

ついでにその他諸々の小さな改良を加える。
特にアルファベットから整数への変換周りに
無駄が多かったのでその辺を書き直し。

m['rqA'],d,i,q=m,*r;
main(c){
	for(;~(c=getchar());)
		d=c<11?i--&&!++*(r=q+d*3):
		c>45?d*10+(c/58?29+c*.325:c)-48:d;
	for(;++c<10000000;)
		(i=*(r=q+c*3)<<8>>8)>1?
		d=printf("%03d-%04d %d\n",c/10000,c%10000,i):0;
	d||puts("No duplicates.");
}