Problem:
Problem I: 夏への扉

なつめは大のねこ好きである。なつめの家ではずっとねこを飼っておらず、ねこ好きななつめはいつも野良ねこと遊んでいた。しかし、今回なつめは決心し、自分の家でねこを一匹飼うことにした。なつめはねこを家に迎え、レノンと名付けてかわいがり始めた。

なつめの家はたくさんの部屋と、それらをつなぐたくさんの扉からなっており、扉は次の2種類がある。

人間用の普通の扉

なつめは開けることができるが、レノンが自分で開けることはできない。なつめとレノンの両方が通ることができる。一度開ければ、その後は開いたままにしておける。

ねこ用の小さな扉

レノンが自分であけて自由に通ることができる。ただし小さいために、なつめが通ることはできない。

レノンは夏が大好きである。だから、冬になり家の外がまっしろな雪で覆われてしまう頃になると、彼の機嫌はとても悪くなってしまった。しかし、彼は家にたくさんあるドアのうち、あるひとつの扉が「夏」へとつながっていると信じているようだった。なつめはその扉を「夏への扉」と呼んでいる。そして、寒くて不機嫌になってくると、レノンはきまってその扉の向こうへ行きたがるのである。

冬のある日、レノンがまた「夏への扉」の奥へ行こうと思い立った。しかし、レノンがひとりで扉を開けて、夏への扉の奥へ行けるとは限らない。その時はもちろん、なつめはレノンの手伝いをしなければならない。つまり、なつめしか開けることの出来ない扉をいくつか開いて、レノンが「夏への扉」の向こう側へ行けるようにしてあげるのだ。

最初、家の中の全ての扉は閉まっている。家の部屋の接続関係、なつめおよびレノンの初期位置が与えられる。なつめとレノンが最適な戦略をとった時、レノンが「夏への扉」の先へいくためになつめが開けなければならない扉の最小数を計算しなさい。

以下の図は、サンプル入力の例を図示したものである。

図: サンプル入力の初期状態

Input

入力の1行目には、部屋の数 n と扉の数 m が1つの空白文字で区切って与えられる。部屋にはそれぞれ 0 から n の番号が割り振られており、0は「夏への扉」の先をあらわす。2行目はなつめが最初にいる部屋の番号とレノンが最初にいる部屋の番号が、1つの空白文字で区切って与えられる。どちらの部屋番号も1以上であり、最初から「夏への扉」の先にいることはない。続く m 行には、m 枚の扉の情報がそれぞれ1行ずつ与えられる。各行はふたつの部屋IDと扉の種類を表す1文字のアルファベットからなり、1つの空白文字で区切られている。扉は指定されたふたつの部屋を繋いでおり、種類はアルファベットが N のとき人間用の普通の扉、L のときねこ用の小さな扉である。扉が同じ部屋同士を繋ぐことはない。部屋IDが0のものを含む扉が「夏への扉」であり、これは入力中に必ずただ1つ存在する。1 <= n, m <= 100000を満たす。

Output

なつめが開けなければならない扉の最小数を、1行で出力せよ。

Notes on Submission

上記形式で複数のデータセットが与えられます。入力データの 1 行目にデータセットの数が与えられます。各データセットに対する出力を上記形式で順番に出力するプログラムを作成して下さい。

Sample Input

2
4 6
1 2
1 2 N
2 3 N
3 4 N
4 1 N
1 4 L
4 0 L
4 6
1 2
1 2 N
2 3 N
3 4 N
4 1 N
1 4 L
4 0 N

Output for the Sample Input

1
3

Solution in C (judge verdict: Accepted)

#include <stdio.h>
#include <string.h>

int nat_m,nat_h[111111],nat_n[111111*2],nat_t[111111*2];
int nat_c[111111];
int neko_m,neko_h[111111],neko_n[111111*2],neko_t[111111*2];
int neko_c[111111],neko_c_natsu[111111];
int q[555555],inq[111111],hd,tl;
int nat_natsu_c[111111],neko_natsu_c[111111];

int main(void)
{
  int n,m,nat,neko,u,v,i,e,p,res,T;
  char c;
  scanf("%d",&T);
  while( T-- ) {
    scanf("%d%d",&n,&m);
    scanf("%d%d",&nat,&neko);
    nat_m = neko_m = 0;
    for(i = 0; i <= n; i++) {
      nat_h[i] = neko_h[i] = -1;
      neko_c[i] = neko_c_natsu[i] = 1<<21;
      nat_c[i] = 1<<21;
    }
#define add_edge1(n,h,t,m,u,v) (n[m]=h[u],h[u]=m,t[m]=v,++m)
    for( i = 0; i < m; i++ ) {
      scanf("%d%d %c",&u,&v,&c);
      if( c == 'N' ) {
        add_edge1(nat_n,nat_h,nat_t,nat_m,u,v);
        add_edge1(nat_n,nat_h,nat_t,nat_m,v,u);
      }
      if( c == 'L' ) {
        add_edge1(neko_n,neko_h,neko_t,neko_m,u,v);
        add_edge1(neko_n,neko_h,neko_t,neko_m,v,u);
      }
    }
    nat_c[nat] = 0;
    hd = tl = 0;
    q[tl++] = nat;
    while( hd != tl ) {
      p = q[hd++];
      for( e = nat_h[p]; e != -1; e = nat_n[e] ) {
        if( nat_c[nat_t[e]] > nat_c[p]+1 ) {
          nat_c[nat_t[e]] = nat_c[p]+1;
          q[tl++] = nat_t[e];
        }
      }
    }
    memset(inq,0,sizeof(inq));
    hd = tl = 0;
    q[tl++] = 0; neko_c_natsu[0] = 0; inq[neko] = 1;
    while( hd != tl ) {
      p = q[hd++]; inq[p] = 0;
      if( neko_c_natsu[p] == 0 ) {
        for(e = neko_h[p]; e != -1; e = neko_n[e]) {
          if( neko_c_natsu[neko_t[e]] > neko_c_natsu[p] ) {
            neko_c_natsu[neko_t[e]] = neko_c_natsu[p];
            if( !inq[neko_t[e]] ) {
              inq[neko_t[e]] = 1;
              q[tl++] = neko_t[e];
            }
          }
        }
      }
      for(e = nat_h[p]; e != -1; e = nat_n[e]) {
        if( neko_c_natsu[nat_t[e]] > neko_c_natsu[p]+1 ) {
          neko_c_natsu[nat_t[e]] = neko_c_natsu[p]+1;
          if( !inq[nat_t[e]] ) {
            inq[nat_t[e]] = 1;
            q[tl++] = nat_t[e];
          }
        }
      }
    }
    memset(inq,0,sizeof(inq));
    hd = tl = 0;
    q[tl++] = neko; neko_c[neko] = 0; inq[neko] = 1;
    while( hd != tl ) {
      p = q[hd++]; inq[p] = 0;
      if( neko_c[p] == 0 ) {
        for(e = neko_h[p]; e != -1; e = neko_n[e]) {
          if( neko_c[neko_t[e]] > neko_c[p] ) {
            neko_c[neko_t[e]] = neko_c[p];
            if( !inq[neko_t[e]] ) {
              inq[neko_t[e]] = 1;
              q[tl++] = neko_t[e];
            }
          }
        }
      }
      for(e = nat_h[p]; e != -1; e = nat_n[e]) {
        if( neko_c[nat_t[e]] > neko_c[p]+1 ) {
          neko_c[nat_t[e]] = neko_c[p]+1;
          if( !inq[nat_t[e]] ) {
            inq[nat_t[e]] = 1;
            q[tl++] = nat_t[e];
          }
        }
      }
    }
    res = 1<<21;
    if( neko_c[0] == 0 ) res = 0;
    for( i = 0; i <= n; i++ ) {
      int k = nat_c[i]+neko_c[i]+neko_c_natsu[i];
      if( res > k ) res = k;
    }
    printf("%d\n",res);
  }
  return 0;
}