{distante pagina 167}
const inf=maxlongint div 2;

type vector=array[1..50000] of longint;
     bool=array[1..50000] of boolean;
     muchie=record
            x,y,c:longint;
            end;

var t:byte;

//function exista(x:longint; vezi:vector; var marc:bool; n:longint):boolean;
//var i:longint;
//begin
//exista:=false;
//for i:=1 to n do
//    if (vezi[i]=x) and not marc[x] then
  //     begin
    //   marc[vezi[i]]:=true;
      // exista:=true;
       //exit;
      // end;
//end;

procedure rezolvare(n,m,s:longint);
var d,vezi:vector;
    u:array[1..100000] of muchie;
    marc:bool;
    i:longint;
    ok:boolean;
begin
for i:=1 to n do
    begin
    read(vezi[i]);
    d[i]:=inf;
    end;

fillchar(marc,sizeof(marc),false);

for i:=1 to m do read(u[i].x,u[i].y,u[i].c);

d[s]:=0;
ok:=true;
while ok do
      for i:=1 to m do
          if d[u[i].y]>d[u[i].x]+u[i].c then
             begin
             d[u[i].y]:=d[u[i].x]+u[i].c;
             ok:=false;
             end;

for i:=1 to n do
    if d[i]=inf then d[i]:=0;

for i:=1 to n do
    if vezi[i]<>d[i] then
       begin
       writeln('NU');
       exit;
       end;

writeln('DA');

end;

procedure citire;
var i:byte;
    n,m,s:longint;
begin
assign(input,'distante.in'); reset(input);
assign(output,'distante.out'); rewrite(output);
readln(t);
for i:=1 to t do
    begin
    readln(n,m,s);
    rezolvare(n,m,s);
    end;
close(input);
close(output);
end;

begin
citire;
end.