NOIP 2017 普级组 图书管理员 librarian

题解：

为啥要用字符串，啥，字符树？不存在的。

你看看数据，不超过10^7，果断暴力

预处理出10^1,10^2,10^3……10^8

给出需求码长度x，跟需求码y

你就把所有的编码mod 10^x 的值看是否等于y

在满足的数中找最小值即可。

时间复杂度:O(NQ)

var
a:array [0..1001] of longint;
num:array [1..8] of longint;
n,q:longint;

function min(aa,bb:longint):longint;
begin
if aa<bb then exit(aa);
exit(bb);
end;

procedure init;
var
i:longint;
begin
readln(n,q);
for i:=1 to n do
readln(a[i]);
num[1]:=10;
for i:=2 to 8 do
num[i]:=num[i-1]*10;
end;

procedure main;
var
cmin,i,j,x,y:longint;
begin
for i:=1 to q do
begin
readln(x,y);
cmin:=maxlongint;
for j:=1 to n do
if a[j] mod num[x]=y
then cmin:=min(cmin,a[j]);
if cmin=maxlongint
then writeln('-1')
else writeln(cmin);
end;
end;

begin
init;
main;
end.