随笔分类 -  Perl

摘要:某天闲逛时看见一副动图: 真的是非常贪吃,各种拐弯各种吃,感觉十分有趣。 用Perl来实现自动吃满,蓄谋已久,之前的字符贪吃蛇、深度优先算法、A*算法,都是为此篇做铺垫。 那么,怎样让蛇不吃到自己呢? 1、让蛇按照我们设计好的路线行进,在一个N*M(N、M均为偶数,奇数不讨论... 阅读全文
posted @ 2015-06-23 11:43 葡萄不吐皮 阅读(2971) 评论(9) 推荐(10) 编辑
摘要:A*算法;A*(A-Star)算法是一种静态路网中求解最短路径最有效的直接搜索方法。估价值与实际值越接近,估价函数取得就越好。 公式表示为: f(n)=g(n)+h(n),其中 f(n) 是从初始点经由节点n到目标点的估价函数,g(n) 是在状态空间中从初始节点到n节点的实际代价,h(n) 是... 阅读全文
posted @ 2015-06-23 10:33 葡萄不吐皮 阅读(338) 评论(0) 推荐(0) 编辑
摘要:迷宫求解,可以用穷举法,将每个点的方向都穷举完;由于在求解过程中会遇到某一方向不可通过,此时就必须按原路返回。 想到用Perl数组来保存路径,记录每次所探索的方向,方便原路返回时得到上一步的方向,再退回到可以通过的方向,继续探索,直到终点或者最终无法到达,正常退出程序为止。求解过程的关键思想:... 阅读全文
posted @ 2015-06-19 12:03 葡萄不吐皮 阅读(283) 评论(0) 推荐(0) 编辑
摘要:一时兴起,想试试能不能用perl实现字符贪吃蛇,算法如下: 定义2个数组@bg、@snake,@bg用来显示整个界面,@snake从蛇头开始保存蛇的坐标点。 蛇每移动一次,新的坐标点放到@snake头部,并去除最后一个元素,再改变@bg对应坐标的值。 通过控制台窗口不断清屏再打印,使蛇“看... 阅读全文
posted @ 2015-06-12 11:16 葡萄不吐皮 阅读(626) 评论(0) 推荐(0) 编辑
摘要:查找N内的所有素数,首先想到的就是: 对整数N从2开始到sqrt(N),进行整除计算,能整除则计算N+1,然后循环。方法简单,但效率低下。1000,000内的素数个数:#!/usr/bin/perl -wuse strict;my $num=1000001;my $count=0;whil... 阅读全文
posted @ 2015-06-02 17:27 葡萄不吐皮 阅读(604) 评论(0) 推荐(0) 编辑
摘要:话说某天一艘海盗船被天下砸下来的一头牛给击中了,5个倒霉的家伙只好逃难到一个孤岛,发现岛上孤零零的,幸好有有棵椰子树,还有一只猴子! 大家把椰子全部采摘下来放在一起,但是天已经很晚了,所以就睡觉先晚上某个家伙悄悄的起床,悄悄的将椰子分成5份,结果发现多一个椰子,顺手就给了幸运的猴子,然后又悄悄... 阅读全文
posted @ 2015-06-02 09:43 葡萄不吐皮 阅读(228) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示