算法模板——线性筛素数

实现功能：如题，筛出1——N内的所有素数

原理：如phile神犇所言，这次的才算是真正意义上的线性筛素数，其精髓在于if (i mod a[j])=0 then break;

因为——如果眼下的a[j]已经是i的因数了，则意味着即使再进行b[i*a[j]]:=1，那么I*b[j]也必然会被其他的数以同样的操作覆盖到，所以可以退出了，这个算法的思想在于减少重复劳动（鸣谢qcgrxx神犇，源链接）

 

var
   i,j,k,l,m,n:longint;
   a,b:array[0..1000000] of longint;
begin
     readln(n);b[1]:=1;b[0]:=1;
     for i:=2 to n do
         begin
              if b[i]=0 then
                 begin
                      inc(m);
                      a[m]:=i;
                 end;
              for j:=1 to m do
                  begin
                       if a[j]>(n div i) then break;
                       b[a[j]*i]:=1;
                       if (i mod a[j])=0 then break;
                  end;
         end;
     while true do
           begin
                readln(m);
                writeln(b[m]=0);
           end;
end.