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.