- 博客(6)
- 资源 (10)
- 收藏
- 关注
原创 非递归生成所有排列(knuth)
'knuth给的算法 '生成所有排列 Option Explicit Dim result, counter const N = 4 const Format = 10 Sub Swap(byRef InArray, first, second) Dim t t = InArray(first) InArray(first) = InArray(second)
2008-04-06 10:59:00 1274
原创 常用排序算法之计数排序,基数排序与桶排序
'计数排序,基数排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next '以base^pow位上的数映射到Map Sub MapTo(byRef Array
2008-04-06 10:53:00 1352
原创 常用排序算法之归并排序
'归并排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next Sub MergeTo(byRef Array, byRef Dest, low, mid, h
2008-04-06 10:52:00 1550 2
原创 常用排序算法之插入排序与希尔排序
'插入排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next '插入排序 Sub ISort(byRef Array, low, hi) Dim i, j
2008-04-06 10:50:00 942
原创 常用排序算法之堆排序与快速排序
'堆排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next '堆排序 Sub HSort(byRef Array, low, hi) Dim i, t,
2008-04-06 10:48:00 1749
原创 常用排序算法之选择排序与冒泡排序
'选择,冒泡排序 Option Explicit Dim Result, I Dim TestData(100) const N = 100 Randomize For I = 0 To N - 1 TestData(I) = ROUND(RND() * 32768) Next '选择排序 Sub SSort(byRef Array, low, hi) Dim t
2008-04-06 10:39:00 1055
二叉查找树代码(avl,bst,rbt,sbt,splay,treap树)
2013-06-29
Windows程序设计
2007-12-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人