怕黑的小强

【题目描述】
有一个N*N的房间，房间内有一些开关可以打开另外一些房间的灯。小强可以走向相邻的四个房间，但是小强非常怕黑，只有相邻的房间的灯是打开的，才敢进入。小强一开始身处[1,1]房间 ，问小强最多可以进入多少个房间。
【输入格式】
第一行，两个整数N和M
以下M行，每行四个整数x、y、a、b，表示在房间[x,y]可以打开房间[a,b]的灯
【输出格式】
最多可以进入多少个房间
【样例输入】
3 6
1 1 1 2
2 1 2 2
1 1 1 3
2 3 3 1
1 3 1 2
1 3 2 1
【样例输出】
5
【数据范围】
1≤N≤100
1≤M≤20000
【分析】
搜索，每次向四个方向扩展直到无法更新答案。

const  dx:array[1..4]of -1..1=(-1,1,0,0);    dy:array[1..4]of -1..1=(0,0,-1,1);var  a,b,c,d:array[0..20001]of longint;    i,j,n,m,ans:longint;    flag:boolean;    x,y:array[0..101,0..101]of 0..1;procedure swap(var x,y:longint);var tmp:longint;begin  tmp:=x;x:=y;y:=tmp;end;procedure qsort(l,r:longint);var  i,j,mid:longint;begin  i:=l;j:=r;    mid:=(l+r) div 2;    repeat        while (a[i]<a[mid]) or ((a[i]=a[mid])and(b[i]<b[mid])) or ((a[i]=a[mid])and(b[i]=b[mid])and(c[i]<c[mid])) or ((a[i]=a[mid])and(b[i]=b[mid])and(c[i]=c[mid])and(d[i]<d[mid])) do inc(i);        while (a[j]>a[mid]) or ((a[j]=a[mid])and(b[j]>b[mid])) or ((a[j]=a[mid])and(b[j]=b[mid])and(c[j]>c[mid])) or ((a[j]=a[mid])and(b[j]=b[mid])and(c[j]=c[mid])and(d[j]>d[mid])) do dec(j);        if i<=j then begin            swap(a[i],a[j]);swap(b[i],b[j]);swap(c[i],c[j]);swap(d[i],d[j]);            inc(i);dec(j);        end;    until i>j;  if l<j then qsort(l,j);    if i<r then qsort(i,r);end;procedure search(tx,ty:longint);var  i,cx,cy:longint;begin  y[tx,ty]:=1;    for i:=1 to 4 do begin      cx:=tx+dx[i]; cy:=ty+dy[i];      if (y[cx,cy]=0)and(x[cx,cy]=1)and(cx>=1)and(cx<=n)and(cy>=1)and(cy<=n) then search(cx,cy);    end;end;begin  read(n,m);    for i:=1 to m do read(a[i],b[i],c[i],d[i]);    qsort(1,m);    x[1,1]:=1;    y[1,1]:=1;    flag:=true;    while flag do begin      flag:=false;        for i:=1 to m do begin          if (x[a[i],b[i]]=1)and(y[a[i],b[i]]=1) then begin              if x[c[i],d[i]]=0 then flag:=true;                x[c[i],d[i]]:=1;            end;            if (x[a[i],b[i]]=1)and(y[a[i],b[i]]=1) then              for j:=1 to 4 do y[a[i]+dx[j],b[i]+dy[j]]:=1;            if (x[c[i],d[i]]=1)and(y[c[i],d[i]]=1) then              for j:=1 to 4 do y[c[i]+dx[j],d[i]+dy[j]]:=1;        end;    end;    fillchar(y,sizeof(y),0);    search(1,1);    ans:=0;    for i:=1 to n do      for j:=1 to n do          if y[i,j]=1 then inc(ans);    write(ans);end.