标签：
某天闲逛时看见一副动图:
真的是非常贪吃，各种拐弯各种吃，感觉十分有趣。
用Perl来实现自动吃满，蓄谋已久，之前的字符贪吃蛇、深度优先算法、A*算法，都是为此篇做铺垫。
那么，怎样让蛇不吃到自己呢？
1、让蛇按照我们设计好的路线行进，在一个N*M(N、M均为偶数，奇数不讨论)的游戏区域，设计好路线如下：
当花儿谢了，果子熟透，春夏秋冬一个轮回后，蛇终于吃满了。。。
2、假设蛇总是追着自己的尾巴跑，那么永远不会死；然而，这没什么鸟用，我们需要的是一条“贪吃”的蛇。
3、在2上稍稍改进，吃完食物后再追着尾巴，嗯，已经很接近了。但是问题来了：怎么吃到食物？吃到食物后被围死怎么办？
其实我的想法就是解决3中的问题：
1、使用A*算法计算到食物的最短路径
2、模拟吃到食物后的场景，能否回到蛇尾；能--吃食物，不能--继续追着尾巴，重复1、2
3、如果无法回到尾巴，保持当前移动方向（认命吧，要挂的节奏）
伪码如下：
# while( 存活 && 未吃满){ # 计算蛇头到食物的路径 # if( 有蛇头到食物的路径 ){ # 模拟吃到食物后的场景 # 计算是否有路径到达蛇尾 # if( 有路径 ){ # 执行蛇头到食物的路径 # } # else{ # 没有到蛇尾的路径 # next # } # } # 找出当前可行方向追逐蛇尾 # } # if(吃满){ # 显示：祝贺 # } # else{ # 显示：wtf ? # }
模拟吃到食物后的场景：使用A*计算路径，并创建一条“影子蛇”用来模拟吃到食物后的状态
计算是否有路径到达蛇尾：和“追逐蛇尾”方法类似，也可使用A*
找出当前可行方向追逐蛇尾：
由于移动时尾巴会变动，未尝试A*，使用指定方向深度优先搜索算法
伪码如下：
sub trace_tail{ @moves=grep{可行}; foreach(@moves){ next if(下一步越界 || 吃到自己) unshift @feasible,$_ if(远离食物) 其他方向 push @feasible } foreach(@feasible){ next_move=cur_move+$_ 指定方向优先探索 next_move的反向上一步设为不可通过 每走一步，从蛇尾开始设未经过；每原路返回一次，当前位置的蛇身设不可通过 if(有路径)return 1 } 执行完毕无路径，return cur_move }
运行如下：
实际上还是会被困死，虽然追逐尾巴时避开食物优先，但唯一路径可能会出现食物，不吃也得吃了。
代码较乱，准备加好注释后贴上来。
标签：
原文地址：http://www.cnblogs.com/wbjxxzx/p/4595074.html
