高中1028

1028. 【GDOI2005】飞越原野 (Standard IO)

Time Limits: 1000 ms  Memory Limits: 65536 KB  Detailed Limits  

Goto ProblemSet

Description

勇敢的德鲁伊法里奥出色的完成了任务之后，正在迅速的向自己的基地撤退。但由于后面有着一大群追兵，所以法里奥要尽快地返回基地，否则就会被敌人捉住。
终于，法里奥来到了最后一站：泰拉希尔原野，穿过这里就可以回到基地了。然而，敌人依然紧追不舍。不过，泰拉希尔的地理条件对法里奥十分有利，众多的湖泊随处分布。敌人需要绕道而行，但法里奥拥有变成鹰的特殊能力，使得他能轻轻松松的飞越湖面。当然，为了保证安全起见，法里奥还是决定找一条能最快回到基地的路。
假设泰拉希尔原野是一个m*n的矩阵，它有两种地形，P表示平地，L表示湖泊，法里奥只能停留在平地上。他目前的位置在左上角(1,1)处，而目的地为右下角的(m,n)。法里奥可以向前后左右四个方向移动或者飞行，每移动一格需要1单位时间。而飞行的时间主要花费在变形上，飞行本身时间消耗很短，所以无论一次飞行多远的距离，都只需要1单位时间。飞行的途中不能变向，并且一次飞行最终必须要降落在平地上。当然，由于受到能量的限制，法里奥不能无限制的飞行，他总共最多可以飞行的距离为D。在知道了以上的信息之后，请你帮助他计算一下，他最快到达基地所需要的时间。

Input

第一行是3个正整数，m(1<=m<=100),n(1<=n<=100),D(1<=D<=100)。表示原野是m*n的矩阵，法里奥最多只能飞行的距离是D。
接下来的m行每行有n个字符，相互之间没有空格。P表示当前位置为平地，L则表示湖泊。 (1,1)和(m,n)一定是平地。

Output

一个整数，表示法里奥到达基地需要的最短时间。如果无法到达基地，则输出impossible。

Sample Input

4 4 2PLLPPPLPPPPPPLLP

Sample Output

5

Data Constraint

uses math;var        a,b,c,q1,q2,i,k,ans,j:longint;        bz:array[1..100,1..100,0..100]of longint;        v:array[1..1000000,1..4]of longint;        t:array[1..4,1..2]of longint=((1,0),(0,1),(-1,0),(0,-1));        r:array[1..100,1..100]of char;begin        //assign(input,'1.in');reset(input);        readln(a,b,c);        inc(q2);        fillchar(bz,sizeof(bz),127);        v[q2,1]:=1;        v[q2,2]:=1;        v[q2,3]:=0;        v[q2,4]:=0;        for i:=1 to a do        begin                for j:=1 to b do                begin                        read(r[i,j]);                end;                readln;        end;        ans:=maxlongint;        while q1<q2 do        begin                inc(q1);                for i:=1 to 4 do                begin                        if (v[q1,1]+t[i,1]>0)and(v[q1,1]+t[i,1]<=a)                        and(v[q1,2]+t[i,2]>0)and(v[q1,2]+t[i,2]<=b)                        and(r[v[q1,1]+t[i,1],v[q1,2]+t[i,2]]='P')then                        begin                                if (bz[v[q1,1]+t[i,1],v[q1,2]+t[i,2],v[q1,4]]>v[q1,3]+1) then                                begin                                        inc(q2);                                        v[q2,1]:=v[q1,1]+t[i,1];                                        v[q2,2]:=v[q1,2]+t[i,2];                                        v[q2,3]:=v[q1,3]+1;                                        v[q2,4]:=v[q1,4];                                        bz[v[q2,1],v[q2,2],v[q2,4]]:=v[q2,3];                                        if (v[q2,1]=a)and(v[q2,2]=b) then                                                        ans:=min(ans,v[q2,3]);                                end;                        end;                        for k:=1 to (c-v[q1,4]) do                        begin                                if (v[q1,1]+(t[i,1]*k)>0)and(v[q1,1]+(t[i,1]*k)<=a)                                and(v[q1,2]+(t[i,2]*k)>0)and(v[q1,2]+(t[i,2]*k)<=b)                                and(r[v[q1,1]+(t[i,1]*k),v[q1,2]+(t[i,2]*k)]='P')then                                begin                                        if (bz[v[q1,1]+(t[i,1]*k),v[q1,2]+(t[i,2]*k),v[q1,4]+k]>v[q1,3]+1) then                                        begin                                                inc(q2);                                                v[q2,1]:=v[q1,1]+(t[i,1]*k);                                                v[q2,2]:=v[q1,2]+(t[i,2]*k);                                                v[q2,3]:=v[q1,3]+1;                                                v[q2,4]:=v[q1,4]+k;                                                bz[v[q2,1],v[q2,2],v[q2,4]]:=v[q2,3];                                                if (v[q2,1]=a)and(v[q2,2]=b) then                                                        ans:=min(ans,v[q2,3]);                                        end;                                end;                        end;                end;        end;        if ans=maxlongint then                writeln('impossible')        else                writeln(ans);        close(input);end.