马语翻译

题目描述

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

输入

第一行三个整数 N， K 和 M，分别表示语言数， 每个机器人能翻译的语言数， 机器人的数量。接下来 M 行，每行 K 个整数。表示每个机器人可以翻译的语言编号（编号从 1 到 N）。

输出

输出最少转换语言的次数。如果无法完成翻译，输出-1。

样例输入

9 3 5
1 2 3
1 4 5
3 6 7
5 6 7
6 8 9

样例输出

4

样例解释

1-3-6-9 或者 1-5-6-9

数据范围限制

40%的数据 N<=100， 1<=K<=20， M<=40。
100%的数据 1<=N<=100000， 1<=K<=1000， 1<=M<=1000。

思路：

DP，水法真神奇，暴力出奇迹！！！

代码：

var
        f:array[0..100001]of longint;
        a:array[0..1001,0..1001]of longint;
        m,k,n,i,j,x,y,z,s,ls:longint;
begin
        assign(input,'trans.in');
        reset(input);
        assign(output,'trans.out');
        rewrite(output);
        readln(m,k,n);
        for i:=1 to n do
        for j:=1 to k do
        read(a[i,j]);
        for i:=1 to m do
        f[i]:=maxlongint;
        f[1]:=1;
        z:=1;
        while z>0 do
        begin
                z:=0;
                for i:=1 to n do
                begin
                        ls:=maxlongint;
                        for j:=1 to k do
                        if f[a[i,j]]<ls then
                        begin
                                ls:=f[a[i,j]];
                        end;
                        for j:=1 to k do
                        if f[a[i,j]]>ls+1 then
                        begin
                                inc(z);
                                f[a[i,j]]:=ls+1;
                        end;
                end;

        end;
        if f[m]=maxlongint then writeln(-1)
        else writeln(f[m]);
end.