【普组模拟赛】马语翻译

【普组模拟赛】马语翻译

题目：

 随着马场的繁荣，出现了越来越多的新马种。种族之间的沟通不畅严重影响了马场的和谐。这时，科学家发明了马语翻译机器人，正好可以解决这一难题。
          机器人有 M 种，每种机器人能完成 K 个马种之间的语言翻译。问，利用这些机器人，能否实现 1 种群和 N 种群的马语翻译。 若可以，找到翻译过程至少需要用到多少种语言。

比赛时打了一个FLOYED水分

听说可以打SPFA，但我打了个DP

设f[i]表示从第1种语言翻译到第i种语言最少需要经过多少种语言

一开始f都是maxlongint

f[1]=1

每次去扫一遍每个机器人所能翻译的语言

看那个的f最小

用一个x记录下来

接着其他的全都等于min(f[i],f[x]+1)

不停的尝试更新，直到没有更新为止

输出f[n]

标程（请勿抄袭，后果很严重）：

var     f:array[0..100000]of longint;        a:array[1..1000,1..1000]of longint;        n,k,m,i,j,l,s,x:longint;begin        assign(input,'trans.in');        assign(output,'trans.out');        reset(input);        rewrite(output);        readln(n,k,m);        for i:=1 to m do                for j:=1 to k do                        read(a[i,j]);        for i:=2 to n do                f[i]:=maxlongint;        f[1]:=1;        repeat                x:=0;                for i:=1 to m do                begin                        s:=maxlongint;                        for j:=1 to k do                        if f[a[i,j]]<s then s:=f[a[i,j]];                        if s<>maxlongint then                        begin                                for j:=1 to k do                                if f[a[i,j]]>s+1 then                                begin                                        f[a[i,j]]:=s+1;                                        inc(x);                                end;                        end;                end;        until x=0;        if f[n]=maxlongint then writeln(-1)        else         writeln(f[n]);        close(input);        close(output);end.