得到单词有效原子集合的算法.

2007-01-19 09:49:35 2.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++命令行背单词软件：面向对象设计与间隔重复算法实践面向对象编程（OOP）是C++等现代编程语言的核心范式，它通过封装、继承和多态等特性，将数据和操作数据的方法组织成对象，从而构建出结构清晰、易于维护的复杂软件系统。其核心原理在于将现实世界中的实体抽象为类，并通过对象间的交互来模拟业务逻辑。这种设计模式在构建需要良好架构和长期维护的应用程序时，展现出巨大的技术价值，尤其在处理具有明确数据模型和复杂行为规则的场景中。一个典型的应用场景便是教育类软件，例如语言学习工具。这类软件通常需要管理大量的学习内容（如单词数据），并实现智能的学习算法（如基于艾宾浩斯遗忘曲线阅读详情

原子:单词抠掉个别字母的子串,如: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) & " "
next
End sub
</SCRIPT>

...全文

数据结构与算法课程设计实战指南：从理论到项目实现的九大核心模块解析数据结构与算法是计算机科学的核心基础，它研究数据的组织、存储和操作方法，旨在提升程序运行效率。其核心原理在于通过抽象数据类型（ADT）将现实问题映射为逻辑结构（如线性表、树、图），并设计特定算法（如查找、排序、遍历）进行操作。掌握数据结构与算法的技术价值在于能够优化程序性能，降低资源消耗，是解决大规模数据处理、高性能计算和复杂系统设计等工程问题的基石。在应用场景上，从数据库索引（B+树）、网络路由（图算法）、文件压缩（哈夫曼编码）到内存管理（动态分配算法），无处不在。本文聚焦于**数据结构课程设计**这一实阅读详情

超级大笨狼

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

后浪 2010-05-10

打赏
举报

收藏了，以后看！..

audryhepburn 2009-11-04

打赏
举报

用正则对象就行！比这简单！

akenter 2009-02-26

打赏
举报

非常感谢，正在研究分词的技术^_^。另外，分词之后如何再归类也是很头痛的问题。

cpring 2008-09-26

打赏
举报

mark
会用得着的

lbt777777 2008-09-24

打赏
举报

楼主能不能把vb换成vc实现啊，不懂vb。net，谢拉！

牙签是竹子的 2008-09-18

打赏
举报

mark

「已注销」 2008-09-17

打赏
举报

mark

lightnightcat 2008-06-04

打赏
举报

留个记号,回头细读

ymle1228 2008-03-28

打赏
举报

收藏,以后再研究

折射光 2007-02-28

打赏
举报

mark

细细rainbow 2007-02-26

打赏
举报

收了！

xk2y 2007-02-26

打赏
举报

收了```

tsxnb 2007-02-25

打赏
举报

ahhisoft 2007-02-25

打赏
举报

kencorn 2007-02-25

打赏
举报

mark

超级大笨狼 2007-02-09

打赏
举报

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication3
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
string word = this.textBox1.Text ;
List <string> list = new List<string>();
char[] Arr = word.ToCharArray();
int a = 0;
int b = 0;
pictureBox1.Show();
button1.Enabled = false;
DateTime T = DateTime.Now;
string result = "";
int strLength=word.Length;
int atomyLength = Convert.ToInt32(Math.Round(strLength * 0.6));
DateTime T1 = DateTime.Now;
//开始结算
for (int x = Convert.ToInt32(Math.Pow(2, atomyLength)); x <Convert.ToInt32(Math.Pow(2, strLength)); x++)
{
b = 0;
a = x;
while (a != 0)
{
if (a % 2 != 0)
{
result += Arr[b];
}
b++;
a >>= 1;
Application.DoEvents();
}
Application.DoEvents();
if (!list.Contains(result) && result.Length >= atomyLength)
{
list.Add(result);
}
result = "";
}
pictureBox1.Hide();
string time = (DateTime.Now - T1).ToString();
textBox2.Text = "输入\"" + textBox1.Text + "\"产生" + list.Count + "个原子，用时:" + time;
this.listBox1.DataSource = list;
button1.Enabled = true;
}

}
}

超级大笨狼 2007-02-09

打赏
举报

输入"superdullwolf"产生1771个原子，用时:00:00:03.5933590

超级大笨狼 2007-02-09

打赏
举报

输入：
"superdullwolf"

---------------------------

---------------------------
程序运行时间:00:00:03.7488720
---------------------------
OK
---------------------------

超级大笨狼 2007-02-09

打赏
举报

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication3
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
string word = this.textBox1.Text ;
List <string> list = new List<string>();
char[] Arr = word.ToCharArray();
int a = 0;
int b = 0;
pictureBox1.Show();
button1.Enabled = false;
DateTime T = DateTime.Now;
string result = "";
int strLength=word.Length;
int atomyLength = Convert.ToInt32(Math.Round(strLength * 0.6));
DateTime T1 = DateTime.Now;
//开始结算
for (int x = Convert.ToInt32(Math.Pow(2, atomyLength)); x <Convert.ToInt32(Math.Pow(2, strLength)); x++)
{
b = 0;
a = x;
while (a != 0)
{
if (a % 2 != 0)
{
result += Arr[b];
}
b++;
a >>= 1;
Application.DoEvents();
}
Application.DoEvents();
if (!list.Contains(result) && result.Length >= atomyLength)
{
list.Add(result);
}
result = "";
}
pictureBox1.Hide();
string time = (DateTime.Now - T1).ToString();
MessageBox.Show("程序运行时间:" + time);
this.listBox1.DataSource = list;
button1.Enabled = true;
}

}
}

Red_angelX 2007-02-09

打赏
举报

来接一点点分就走...

加载更多回复（11）

得到单词有效原子集合的算法.

相关推荐