|
|
主题: 虚竹： 你要的随机取数
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#12002/8/6 11:19:47
斑竹冤枉啊，我可是在为5D咱们版呐喊呢！！ 是这个帖子，听说这个网友很急！你快帮忙看看，去宇风跟帖或者干脆在这里解决吧！！ 引用:
原文由 闪动 发表:
谢谢大虾。
请问，要是这样的一种矩阵如何编程：
１，２，３，４选三个数的组合（不重复）：
１，２，３
１，３，４
２，１，３
２，３，４
请教各位了。
随机不重复取数的范例：  随机不重复取数7K 相关脚本： --默认数列 ，可自己删除增加数列值 DefaultList:=[1,2,3,4,5] --临时数列 CurrentList:=DefaultList --随机数个数 ，可自己更改，必须不大于数列最大索引号 GetNumCount:=3 --输出结果字符串，格式为：#,#,#（以逗号分隔） RandomNumber:="" --取得不重复随机数 repeat with i:=1 to GetNumCount RandomIndex:=Random(1,ListCount(CurrentList),1) if i RandomNumber:=RandomNumber^CurrentList[RandomIndex]^","
else
RandomNumber:=RandomNumber^CurrentList[RandomIndex]
end if
DeleteAtIndex(CurrentList,RandomIndex)
end repeat
编辑历史:[这消息被Rock编辑过(编辑时间2002-08-06 11:20:49)]
|
lvzhiguo
职务：普通成员
等级：1
金币：1.0
发贴：136
|
#22002/8/6 11:25:05
我先看了，有收获。呵呵
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#32002/8/6 11:31:57
不的了拉。。酷鱼把虚竹的第一次要了？哈哈。。 
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：954
|
#42002/8/6 12:07:01
啊，有搞错啊！“R麽麽”！看我的“天山折梅手”！！
真正的光明绝不是永没有黑暗的时间，只是永不被黑暗所湮没罢了；真正的英雄绝不是永没有卑下的情操，只是永不被卑下的情操所屈服罢了。
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#52002/8/6 12:21:42
虚竹在上个帖子中说 引用:
啊，有搞错啊！“R麽麽”！看我的“天山折梅手”！！
~~~~~~~~~~~~~~
这一招什么来着？出处是哪里啊？你自创的？
|
魔岩
职务：版主
等级：6
金币：34.0
发贴：4453
|
#62002/8/6 14:32:19
yufeng小邓的算法：
这些排列问题,如果要列出所有的可能,最好就不用随机来实现了,因为其中浪费了极大的取数时间.
下面给出从i个数中取3个数的组合的方法,假定这i个数保存在Deflist[]中且各不相同而把取出的数保存在CurList[]中
Deflist:=[1,2,3,4,5,6,7,8,9]
Curlist:=[]
p:=1
repeat with a:=1 to i-2
CurList[p][1]:=deflist[a]
repeat with b:=2 to i-1
CurList[p][2]:=defList[b]
repeat with c:=3 to i-1
CurList[p][3]:=defList[c]
end repeat
end repeat
end repeat
|
