积木

　　在一个N*N的区域玩积木游戏，每个单元格正好跟积木的底面相等，每个单元格里放有若干个积木，Alice想重新摆放积木，使得每个单元格最多只能放一个积木，并且所有积木正好形成一个矩形。

　　把一个积木从一个位置移到另一个位置称为一次操作。
　　给出初始状态，编程计算最少需要多少次操作才能达到上述要求。

Input

　　第一行包含两个整数N和M(1<=N<=100，1<=M<=N^2)，表示区域大小以及积木的数量。
　　接下来M行，每行包含两个整数R和C(1<=R,C<=N)，表示每个积木放置的位置。

Output

　　输出最少操作次数。输入保证有解。

SampleInput

输入1：
3 2
1 1
1 1

输入2：
4 3
2 2
4 4
1 1

输入3：
5 8
2 2
3 2
4 2
2 4
3 4
4 4
2 3
2 3

SampleOutput

输出1：
1

输出2：
2

输出3：
3

DataConstraint

  

Hint

【样例解释】
样例1只要把（1，1）中的一个移到(1,2)或(2,1)即可。
样例3中，把（2，3）移一个到（3，3），（4，2）移到（2，5），再把（4，4）移到（3，5）

 

分析：

如果一个格有多个积木，就必须移剩一个。我们希望移动最小，所以我们应该让在矩形的位置的积木尽可能得多。题目就转换为用面积为M（也就是积木数）的矩形最多能覆盖多少个积木即可。先预处理一下，以i，j为右下角的矩形的积木数，然后求解即可。

 

程序：

var

 a:Array [0..101,0..101] of longint;

 i,j,n,m,t,ans:longint;

 

procedureinit;

 var x,y:longint;

begin

 readln(n,m);

 for i:=1 to m do

  begin

   readln(x,y);

   if a[x,y]=0 then a[x,y]:=1;

   inc(t);

  end;

 for i:=1 to n do

  for j:=1 to n do

   a[i,j]:=a[i,j]+a[i-1,j]+a[i,j-1]-a[i-1,j-1];

end;

 

proceduremain;

 var i,j,k,s,max:longint;

begin

 for i:=1 to n do

  begin

   if t mod i=0 then s:=t div i

                else continue;

   max:=0;

   for j:=i to n do

    for k:=s to n do

     begin

      ifa[j,k]-a[j-i,k]-a[j,k-s]+a[j-i,k-s]>max then

      max:=a[j,k]-a[j-i,k]-a[j,k-s]+a[j-i,k-s];

     end;

   if max>ans then ans:=max;

  end;

 writeln(t-ans);

end;

 

begin

 init;

 main;

end.