刘润达方法好快

回复 @波风水门大招��旋闪光超轮舞吼叁式 :
不读题怪我咯

如果序列中根本不存在m种的话，要输出0！！他居然改题面！！

1800整

我从未见过如此该改题面之厚颜无耻之人

其实跟画展基本一样，不过加强了一下数据，成功卡掉O(nlogn)的二分答案。
标程一开始用的是@fyl 神犇的(虽然数据是用我的O(nlogn)的垃圾程序生成的)，
然后自己的写过了就换成了自己的

回复 @Sky_miner :
不读题怪我咯

嗯- - 看我的代码吓死你们。。。

回复 @哒哒哒哒哒! :
判断是否够m个的顺序 决定你是40 90 还是AC

另一种DP，效率貌似更高一些

人生第一发哈希
更是第一发哈希+Dp+记忆化
话说其实要不是我一直懒得再开一个[2]，然后写记忆话，就不至于废一个晚上写这个题了。。

额，代码有4对点矛盾，不管怎么改，总是60，而且错的点不一样！！！想改对的话得要大改。。

数据范围：
20%的数据满足：s的长度不超过5, 1<=T<=5
50%的数据满足：s的长度不超过8
100%的数据满足：s的长度不超过10, 1<=d<=1000, 1<=T<=15

var
a,b,c:array[1..5000]of longint;
d:array[10..36]of char;
i,j,k,l,n:longint;
m:char;
begin
assign(input,'fjz.in');
assign(output,'fjz.out');
reset(input);
rewrite(output);
k:=1;
n:=10;
for m:='A'TO 'Z'DO
begin
d[n]:=m;
n:=n+1;
end;
repeat
inc(i);
read(a[i]);
read(b[i]);
until eof ;
for j:=1 to i do
begin
write(a[j],'=');
repeat
begin
c[k]:=a[j] mod b[j];
a[j]:=a[j] div b[j];
if c[k]<0 then
begin
a[j]:=a[j]+1;
c[k]:=c[k]-b[j];
end;
k:=k+1;
end;
until (a[j]=0);
for l:=k-1 downto 1do
begin
if c[l]>=10 then write(d[c[l]])else
write(c[l]);
end;
write('(base ',b[j],')');
writeln;
k:=1;
end;
close(input);
close(output);
end.
前五个点过不去，求解