马语翻译

题目描述

随着马场的繁荣，出现了越来越多的新马种。种族之间的沟通不畅严重影响了马场的和谐。这时，科学家发明了马语翻译机器人，正好可以解决这一难题。机器人有 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.