Section 1.4 Arithmetic Progressions

咱不会搜索啊 只会枚举 于是就枚举a, b

要求b 在前 所以先枚举b 后枚举a 这样便省去的排序

当然还得先做个布尔数组 存所有双平方数

接下来就 很容易了 关键是a, b的范围

这就要靠RP了 通过分析数据 当m div n > 8 时 b 的 范围可以从 1 to m*m 缩小的1 to m*m div n

靠这个无良的优化 咱便顺利的过掉了此题 但是考试时咋办捏？

要么好好学搜索 至少要会算时间复杂度

{
ID: yaoyuan4
PROG: ariprog
LANG: PASCAL
}
Program ariprog;
const
  inf = 'ariprog.in'; outf = 'ariprog.out';
var
  f : array[0..2000000] of boolean;
  n, m : longint;
Procedure init;
  var
   i, j : longint;
  begin
   assign(input, inf); reset(input);
   readln(n);
   readln(m);
   close(input);
   assign(output, outf); rewrite(output);
   fillchar(f, sizeof(f), false);
   for i := 0 to m do
    for j := 0 to m do
     f[i*i+j*j] := true;
  end;
Procedure work;
  var
   i, j, k, t : longint;
   flag : boolean;
  begin
   flag := true;
   if m div n > 8 then t := n else t := 1;
   for j := 1 to m*m div t do
    for i := 0 to m*m do
     begin
      k := 0;
      while (f[i+j*k]) and (k < n) do
       inc(k);
      if k >= n then
       begin
        flag := false;
        writeln(i,' ',j);
       end;
     end;
   if flag then writeln('NONE');
   close(output);
  end;
begin
  init;
  work;
end.