Trap

Description

小A成功地在紧要关头逃离了神奇山洞，同时他也感觉自己rp大增。现在他站在了一座阴森森的城堡前，这就是江湖人称“死亡城堡”的魔域。为了rp，小A毅然决然地走了进去…… 
不愧是死亡城堡，险境丛生，小A又是一个大意的人，XXX他掉进了一个陷阱。 
这是一个n*n的矩阵陷阱，矩阵的每一个小格内都有一个魔鬼，并且这些魔鬼属于不同的种类，种类数不超过p（1<=p<=n*n,有可能存在某一种魔鬼不在矩阵中出现）。每一种魔鬼i都有一种战斗力c[i]，不同的魔鬼战斗力不同。打魔鬼也不是那么好玩的，需要消耗小A相应数量的战斗力。当小A打败了一个魔鬼后，此种类型的魔鬼就会全部消失，这样小A就可以自由的在这种类型的格子间传送，不会消耗任何的战斗力。每到一个格子，小A可以向紧邻的上下左右四个格子进发去打魔鬼，直到走出矩阵。小A开始郁闷了，他怎样才能从矩阵的第一行出发，顺利的走到矩阵的最后一行呢？所谓的顺利，就是使自己的战斗力大于0。 
现在小A求助于聪明的你，希望你能求出小A顺利走出陷阱时剩余的最大战斗力。 

Input

第一行：两个整数n，p; 
第2到n+1行是一个n*n的矩阵，矩阵中不同的数字代表不同的格子类型； 
第n+2行是p个数，代表p种魔鬼的战斗力； 
最后一行:小A的初始战斗力值W。 

Output

一个整数表示小A顺利走出陷阱时剩余的最大战斗力，如果小A走不出陷阱就输出'Dangerous!';

3 3
1 2 1
2 1 2
1 1 1
1 2 5
7

3 3
1 2 1
2 1 2
3 3 3
1 2 5
2

 

6

Dangerous!

 

type
  arr=array[0..30000] of longint;
 var
  fz:arr;
  n,i,la,a,b,c:longint;
  l:array[0..2] of longint;
  f:array[0..2] of arr;
 procedure down(a,b:longint);
 begin
  writeln(b);
  writeln(a);
  close(input);
  close(output);
  halt;
end;
procedure prt(a:arr;l:longint);
var
  i:longint;
begin
  write(a[l]);
  for i:=l-1 downto 1 do
  begin
  if a[i]<10 then write('000',a[i])
  else if a[i]<100 then write('00',a[i])
  else if a[i]<1000 then write('0',a[i])
  else write(a[i]);
  end;
  writeln;
end;
procedure add(l1:longint;var l3:longint;var a,b,c:arr);
var
  i,x:longint;
begin
  i:=1;
  x:=0;
  while (i<=l1) do
  begin
    x:=a[i]+b[i]+x div 10000;
    c[i]:=x mod 10000;
    inc(i);
  end;
  c[i]:=x div 10000;
  if c[i]>0 then l3:=l1+1
  else l3:=l1;
end;
begin
  readln(n);
  f[0][1]:=1;
  l[0]:=1;
  f[1][1]:=2;
  l[1]:=1;
  a:=0;
  b:=1;
  c:=2;
  if n=1 then down(0,1);
  if n=2 then down(1,4);
  for i:=2 to n-3 do
  begin
  add(l[b],l[c],f[a],f[b],f[c]);
  a:=(a+1) mod 3;
  b:=(b+1) mod 3;
  c:=(c+1) mod 3;
  end;
  for i:=1 to l[b] do
  fz[i]:=f[b][i];
  la:=l[b];
  f[0][1]:=2;
  l[0]:=1;
  a:=0;
  b:=1;
    for i:=2 to n do
    begin
    add(l[a],l[b],f[a],f[a],f[b]);
    a:=ord(odd(a+1));
    b:=ord(odd(b+1));
    end;
    prt(f[a],l[a]);
    prt(fz,la);
end.