程序算法
文章平均质量分 80
homezj
这个作者很懒,什么都没留下…
展开
-
大数阶乘的计算(五)
很难想象只要改动几句代码就可以大幅提高执行的效率,在前几篇文章中我写了几种大数阶乘的算法(http://www.csdn.net/Develop/read_article.asp?id=28306,http://www.csdn.net/Develop/read_article.asp?id=28308,http://www.csdn.net/Develop/read_article.asp?id原创 2004-06-07 09:59:00 · 2120 阅读 · 1 评论 -
大数阶乘的计算(四)
看了northwolves 的文章大数阶乘的计算(三) http://dev.csdn.net/article/28/28432.shtm 很有启发,联想起以前自己编写过一个类似的函数,方法与其差不多,都是动态数组的增位保存方式。效率上比northwolves兄要差一些,大约相差50%;当时以为是最快的阶乘算法了,所以看到这篇文章很是钦佩!不过,我总觉得,这个算法还有可优化的余地,于是,又重新原创 2004-06-03 16:57:00 · 1396 阅读 · 1 评论 -
大数阶乘的计算(五)
对计算(四)我总觉得没有发挥Long类型的最大潜力,一定是我的算法还有改进余地。经进一步推敲,终于又有了突破,速度一下子又提高 4 倍!同一台机器上10000!用时9.8秒,而且大胆的算了一次20000!,啊,43秒搞定。现将代码贴出,供大家参考,看还能不能再快了?Private Function cacl(num As Long) As StringDim numlen As Long, l原创 2004-06-07 16:37:00 · 2260 阅读 · 0 评论 -
一个优化后的压缩算法(下)
类中压缩与解压算法Private Sub Compress() Dim lngTemp As Long, intCount As Integer Dim intBufferLocation As Integer Dim intMaxLen As Integer Dim intNext As Integer Dim intPrev As Integer Dim原创 2005-04-12 20:09:00 · 3539 阅读 · 3 评论 -
穷举彩票号码的通用过程
Text1输入数字总个数;Text2输入每组的数字个数;App.Path & "/1.txt"用于看输出结果;Label1用于显示组个数;Command1就是执行按钮。这是一个穷举组合结果的万能代码。Option ExplicitPrivate mlngAllNumCount As Long, mlngGetNumCount As LongPrivate mblnCancelProc As Boo原创 2005-04-12 11:36:00 · 2176 阅读 · 0 评论 -
一个优化后的压缩算法(上)
这是一个在CSDN论坛中讨论过的压缩算法代码。与WinRAR以最快方式压缩ZIP比较,255M的文件Level=0时 用时24.98秒 大小95.1MLevel=255时 用时30.24秒 大小91.6MWinRAR最快压缩ZIP 用时 25.2秒 大小58.6M标准RAR压缩,我看了一下,实在太慢,也就没试了,估计要几分钟才会有结果。从速度看,基本持平了,这个算法虽然最大压缩能力有限,但感觉设计原创 2005-04-12 20:07:00 · 3585 阅读 · 0 评论