Conversion

Conversion
关于自然数i的变换f和g定义如下:
f(i) = 3*i
g(i) = i div 2
求将自然数n变换为m的最少次数。
输入格式
第一行两个自然数n,m。
输出格式
在第一行输出将n变换为m的最少次数，如果最少次数超
过40或都不能将n变换为m则输出−1。
输入样例
15 4
输出样例
4
数据范围
在60%的数据中，0 ≤ n,m ≤ 1000
在100%的数据中，0 ≤ n,m ≤ 10⁶

^{=========================}

考查的是宽搜

对于相同的节点没有继续生成的必要

于是就不用生成那些点了

^{=========================}

const max=1000000; var n,m:longint; h,ht:array[0..2000000]of longint; f:array[1..1000000]of boolean; procedure init; begin assign(input,'conversion.in'); assign(output,'conversion.out'); reset(input); rewrite(output); end; procedure terminate; begin close(input); close(output); halt; end; procedure bfs; var l,r:longint; begin l:=0; r:=1; h[1]:=n; ht[1]:=0; repeat l:=(l+1) mod 2000000; if (h[l]*3<=1000000) and (ht[l]+1<=40) and (not f[h[l]*3]) then begin inc(r); r:=r mod 2000000; h[r]:=h[l]*3; ht[r]:=ht[l]+1; f[h[l]*3]:=true; if h[r]=m then begin writeln(ht[r]); terminate; end; //writeln('r:=',r,'; h[r]:=',h[r],'; ht[r]:=',ht[r],';'); end; if (h[l]shr 1>0) and (ht[l]+1<=40) and (not f[h[l] shr 1]) then begin inc(r); r:=r mod 2000000; h[r]:=h[l] shr 1; ht[r]:=ht[l]+1; f[h[l] shr 1]:=true; if h[r]=m then begin writeln(ht[r]); terminate; end; //writeln('r:=',r,'; h[r]:=',h[r],'; ht[r]:=',ht[r],';'); end; until l>=r; end; procedure main; var ans:longint; begin readln(n,m); if m=0 then begin ans:=0; while n<>0 do begin inc(ans); n:=n shr 1; end; writeln(ans); terminate; end; fillchar(f,sizeof(f),false); bfs; writeln('-1'); end; begin init; main; terminate; end.