[noip2014]解方程 hash+秦九昭

const mi:array[1..7] of int64=(12537,15437,17647,14677,10003,10009,10007);
var
        n,m,shi,sum,x:int64;
        i,j,k,y1:longint;
        a:array[-1..102,-1..10000+9] of int64;
        flag:array[-1..1000000+9] of boolean;
        c:char;
        b:array[-1..102,1..7] of int64;
        f:array[-1..100000,1..7] of boolean;

        begin
                readln(n,m);
                fillchar(flag,sizeof(flag),true);
                fillchar(f,sizeof(f),true);
                for i:=0 to n do
                begin
                        read(c);
                        if c=‘-‘ then
                        begin j:=0; y1:=-1; end else begin y1:=1; j:=1; val(c,a[i,1],k); end;
                        a[i,1]:=a[i,1]*y1;
                        while not eoln do
                        begin
                        inc(j);
                        read(c);
                        val(c,a[i,j],k);
                        a[i,j]:=a[i,j]*y1;
                        end;
                        a[i,0]:=j;
                        readln;
                        end;
                        for k:=1 to 7 do
                        for i:=0 to n do
                        begin
                                shi:=1;
                                for j:=a[i,0] downto 1 do
                                begin
                                b[i,k]:=(b[i,k]+a[i,j]*shi mod mi[k]) mod mi[k];
                                shi:=shi*10 mod mi[k];
                                end;
                        end;
                        for k:=1 to 7 do
                        for i:=1 to mi[k] do
                        begin
                        sum:=0; x:=1;
                        for j:=0 to n do
                        begin
                        sum:=(sum+x*b[j,k] mod mi[k]) mod mi[k];
                        x:=x*i mod mi[k];
                        end;
                        if sum<>0 then f[i,k]:=false;
                end;
                sum:=0;
                for i:=1 to m do
                for k:=1 to 7 do
                if not f[i mod mi[k],k] then begin flag[i]:=false; break; end;
                for i:=1 to m do if flag[i] then inc(sum);
                writeln(sum);
                for i:=1 to m do if flag[i] then writeln(i);
        end.