在一个遥远的国度，一侧是风景秀美的湖泊，另一侧则是漫无边际的沙漠。该国的行政 区划十分特殊，刚好构成一个N行M列的矩形，如上图所示，其中每个格子都代表一座城 市，每座城市都有一个海拔高度。 为了使居民们都尽可能饮用到清澈的湖水，现在要在某些城市建造水利设施。水利设施 有两种，分别为蓄水厂和输水站。蓄水厂的功能是利用水泵将湖泊中的水抽取到所在城市的 蓄水池中。因此，只有与湖泊毗邻的第1行的城市可以建造蓄水厂。而输水站的功能则是通 过输水管线利用高度落差，将湖水从高处向低处输送。故一座城市能建造输水站的前提，是 存在比它海拔更高且拥有公共边的相邻城市，已经建有水利设施。 由于第N行的城市靠近沙漠，是该国的干旱区，所以要求其中的每座城市都建有水利 设施。那么，这个要求能否满足呢？如果能，请计算最少建造几个蓄水厂；如果不能，求干 旱区中不可能建有水利设施的城市数目。

输入的每行中两个数之间用一个空格隔开。 输入的第一行是两个正整数N和M，表示矩形的规模。 接下来N行，每行M个正整数，依次代表每座城市的海拔高度。

输出有两行。如果能满足要求，输出的第一行是整数1，第二行是一个整数，代表最少 建造几个蓄水厂；如果不能满足要求，输出的第一行是整数0，第二行是一个整数，代表有 几座干旱区中的城市不可能建有水利设施。

2 5

9 1 5 4 3

8 7 6 1 2

【数据范围】 本题共有10个测试数据，每个数据的范围如下表所示： 测试数据编号 能否满足要求 N M 1 不能 ≤ 10 ≤ 10 2 不能 ≤ 100 ≤ 100 3 不能 ≤ 500 ≤ 500 4 能 = 1 ≤ 10 5 能 ≤ 10 ≤ 10 6 能 ≤ 100 ≤ 20 7 能 ≤ 100 ≤ 50 8 能 ≤ 100 ≤ 100 9 能 ≤ 200 ≤ 200 10 能 ≤ 500 ≤ 500 对于所有的10个数据，每座城市的海拔高度都不超过10^6

样例2 说明

数据范围

program p1066;
const dx:array[1..4] of integer=(0,1,0,-1);
dy:array[1..4] of integer=(-1,0,1,0);
type rec=record
l,r:longint;
end;
var map:array[1..500,1..500] of record
h,c:longint;
end;
segment:array[1..500] of rec;
f:array[0..500] of longint;
r,i,j,n,m,ans,k:longint;
queue:array[1..1000000] of record
x,y:longint;
end;
head,rear:longint;
function min(a,b:longint):longint;
begin
if a>b then exit(b);
exit(a);
end;
procedure qsort(i,j:longint);
var l,r,mid:longint;
temp:rec;
begin
l:=i;
r:=j;
mid:=segment[(l+r)>>1].r;
while l<=r do
begin
while segment[l].rmid do dec(r);
if l<=r
then
begin
temp:=segment[l];
segment[l]:=segment[r];
segment[r]:=temp;
inc(l);
dec(r);
end;
end;
if i0) and (x<=n) and (y>0) and (y<=m) and (map[x,y].c=0) and (map[x,y].h0) and (x<=n) and (y>0) and (y<=m) and (map[x,y].c=0) and (map[x,y].h>map[queue[head].x,queue[head].y].h)
then
begin
inc(rear);
queue[rear].x:=x;
queue[rear].y:=y;
map[x,y].c:=st;
end;
end;
inc(head);
end;
end;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
with map[i,j] do
begin
read(h);
c:=0;
end;
bfs0;
for i:=1 to m do
if map[n,i].c=0
then
begin
inc(ans);
end;
if ans<>0
then
begin
writeln(0);
writeln(ans);
exit;
end;
writeln(1);
for i:=1 to n do
for j:=1 to m do
map[i,j].c:=0;
for i:=1 to m do
bfs(i);
for i:=1 to m do
begin
segment[i].l:=map[1,i].c;
end;
for i:=1 to n do
for j:=1 to m do
map[i,j].c:=0;
for i:=m downto 1 do
bfs(i);
for i:=1 to m do
begin
segment[i].r:=map[1,i].c;
end;
ans:=0;
fillchar(f,sizeof(f),$7f);
f[0]:=0;
{qsort(1,m);}
for i:=1 to m do
for j:=1 to m do
begin
if (segment[j].l<=i) and (segment[j].r>=i)
then
begin
f[i]:=min(f[i],f[segment[j].l-1]+1);
end;
end;
write(f[m]);
end.