爆搜都能过……我佩服它的数据规模
uses math;
var f:array[1..10000] of boolean; a:array[1..100] of string[6]; n:longint; start,final:string[6]; ans:longint; function cj(a,b:string):boolean; var k,i:longint; begin k:=0; for i:=1 to length(a) do if a[i]<>b[i] then inc(k); if k=1 then exit(true); exit(false); end; procedure dfs(s:string; step:longint); var i:longint; begin if cj(s,final) then begin ans:=min(ans,step); exit; end; for i:=1 to n do if (f[i])and(cj(s,a[i])) then begin f[i]:=false; dfs(a[i],step+1); f[i]:=true; end; end; procedure scanf; var s:string[155]; k:longint; begin readln(s); k:=pos(' ',s); start:=copy(s,1,k-1); final:=copy(s,k+1,length(s)-k); readln(s); s:=s+' '; n:=0; while s<>'' do begin k:=pos(' ',s); inc(n); a[n]:=copy(s,1,k-1); delete(s,1,k); end; end; procedure work; begin fillchar(f,sizeof(f),true); ans:=100; dfs(start,2); write(ans mod 100);