[转帖]得到单词有效原子集合的算法_Android, Python及开发编程讨论区_Weblogic技术|Tuxedo技术|中间件技术|Oracle论坛|JAVA论坛|Linux/Unix技术|hadoop论坛_联动北方技术论坛  
网站首页 | 关于我们 | 服务中心 | 经验交流 | 公司荣誉 | 成功案例 | 合作伙伴 | 联系我们 |
联动北方-国内领先的云技术服务提供商
»  游客             当前位置:  论坛首页 »  自由讨论区 »  Android, Python及开发编程讨论区 »
总帖数
1
每页帖数
101/1页1
返回列表
0
发起投票  发起投票 发新帖子
查看: 3420 | 回复: 0   主题: [转帖]得到单词有效原子集合的算法        下一篇 
张三丰
注册用户
等级:上尉
经验:511
发帖:53
精华:0
注册:2013-11-19
状态:离线
发送短消息息给张三丰 加好友    发送短消息息给张三丰 发消息
发表于: IP:您无权察看 2013-11-20 9:30:40 | [全部帖] [楼主帖] 楼主

原子:单词抠掉个别字母的子串,如:abc 中的ac bc ab abc注意:ca不算

有效原子:长度大于单词长60%的原子,可用于联想记忆,比较相似单词.

<SCRIPT LANGUAGE="vbScript">

str="aaccb"

''创建全局字典对象,用来存储所有得到的原子结果

 Set dict=CreateObject("Scripting.Dictionary")

Dim  a(100)

strLength=Len(str)

''原子

 atomyLength=round(strLength*0.6)

For x=atomyLength To strLength

a(0)=x

 ''计算5选3,5选4,5选5组合

 combine strLength,x

next

sub combine(m,  k)

''计算组合在m里面选k个元素的全部组合情况,添加到字典对象里

 i=0

j=0

For i=m To k Step -1

a(k)=i

if (k>1)  then

combine i-1,k-1

else

tempStr=""

for  j=1 To a(0)

tempStr=tempStr &  Mid(str,a(j),1)

Next

   ''排除重复的,加到字典里

 If Not dict. Exists(tempStr) then  dict.add tempStr,Len(tempStr)

End if

next

End sub

Main()

Sub Main

 ''输出显示结果

 For i=0 To dict.count-1

Document.write  dict.keys()(i) & " &nbsp;"

next

End sub

</SCRIPT>




赞(0)    操作        顶端 
总帖数
1
每页帖数
101/1页1
返回列表
发新帖子
请输入验证码: 点击刷新验证码
您需要登录后才可以回帖 登录 | 注册
技术讨论