翻币问题-ssl 1457

题意：

Description


有N个硬币(6<=N<=20000)全部正面朝上排成一排，每次将其中5个硬币翻过来放在原位置，直到最后全部硬币翻成反面朝上为止。试编程找出步数最少的翻法，输出最少步数及翻法。


Input


从键盘输入一个正整数N(6<=N<=20000)，表示硬币的数量。


Output


第1行：一个整数，表示最少步数 
第2行至最后一行：先是一个整数，表示步骤序号（从0开始编号），后接一个":"，再接当前硬币的状态（用一个整数表示正面朝上的硬币的个数） 


Sample Input




6  (开始:6个硬币正面朝上)
Sample Output




0:6   (第0步结果:6个硬币正面朝上)
1:1   (第1步结果:1个硬币正面朝上)
2:4   (第2步结果:4个硬币正面朝上)
3:3   (第3步结果:3个硬币正面朝上)
4:2   (第4步结果:2个硬币正面朝上)
5:5   (第5步结果:5个硬币正面朝上)
6:0   (第6步结果:0个硬币正面朝上)
6     (最少用6步实现全部反面朝上)








Hint


只输出最少次数,其变化过程仅作参考

分析：

这一题并没有给出目标的位置，需要我们自己设置。我们可以用h数组作为记录当前正面硬币的数量，则结果应当是正面硬币数量为0。这样一来就非常好做广搜了，只需每一次都由头指针所指向的位置进行判断，可以则记录下来，还需要判重否则程序将陷入死循环中。最后递归回去输出每一步的值并统计总步数。

const

  maxn=20000;


var
  s:array[1..maxn] of longint;
  f:array[1..maxn] of longint;
  n,d:longint;


procedure init;
begin
  readln(n);
end;


procedure print(x:longint);
begin
  if x=0 then exit;
  print(f[x]);
  inc(d);
end;


procedure bfs;
var h,i,j,t:longint;
begin
  h:=0;t:=1;s[1]:=n;
  repeat
    inc(h);
    for i:=0 to 5 do
    if (s[h]>=i) and (n-s[h]>=5-i) then
    begin
      inc(t);
      f[t]:=h;
      s[t]:=s[h]-i+5-i;
      for j:=1 to t-1 do
      if s[j]=s[t] then begin
                          dec(t);
                          break;
                        end;
      if s[t]=0 then begin
                       d:=0;
                       print(t);
                       writeln(d-1);
                       t:=0;
                     end;
    end;
  until h>=t;
end;


begin
  init;
  bfs;
end.