BFS（广搜） 翻币问题

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

温馨提示
如果你是SSL的学生，做之前请看这个：

题目分析
可以看得出，选择其中5枚硬币翻过来会有六种不同的情况：
1代表反过来的，0代表正面朝上的
翻过之前 翻过之后
五个正面 五个反面
四正一反 四反一正
三正二反 二反三正
二正三反 三反二正
一正四反 四正一反
五个反面 五个正面
所以说这是一棵六叉树。
主要就是判断组硬币满不满足翻的条件（即不能将五个正面翻成二反三正之类的）
还有判断这种正与反的情况有没有出现过（大胆用循环，不会超时），就不会有这样的情况：
1：11111
2：00000
3：11111
4：00000
…
就是无限翻同一种翻法，会死循环。

var
  n,k:longint;
  f:array[1..20000]of longint;
  s:array[1..20000]of longint;

function check(x,y,l:longint):boolean;
var
  i:longint;
begin
  for i:=1 to x do
   if s[i]=s[y]-l+5-l then exit(false);
  exit(true);
end;

procedure print(x:longint);
begin
  if x=0 then exit;
  print(f[x]);
  writeln(k,':',s[x]);
  inc(k);
end;

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

begin
  readln(n);
  bfs;
  writeln(k-1);
end.