用VBS枚举素数（质数）

标签： , , ,

标题: 用VBS枚举素数（质数）
作者: Demon
链接: https://demon.tw/programming/vbs-prime-number.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

看到标题你一定会不屑一顾，枚举质数谁不会？

For i = 1 To 100
	For j = 2 To i
		If i Mod j = 0 Then Exit For
	Next
	If j = i Then WScript.Echo i
Next

几行代码就能搞定，如此简单。那就看看下面这个程序吧！

Set regex = New RegExp
regex.Pattern = "^1?$|^(11+?)\1+$"
For i = 1 To 100
	If Not regex.Test(String(i,"1")) Then
		WScript.Echo i
	End If
Next

用正则表达式判断质数，神一样的人物。

参考链接：

  1. 检查素数的正则表达式
  2. 用 JS 枚举质数
赞赏

微信赞赏支付宝赞赏

相关文章:

  1. VBS创建正则表达式对象的两种方法
  2. 效率低下的Split函数，用VBS的人你伤不起
  3. 用VBS实现PHP的basename函数
  4. 用VBS下载国家地理每日一图
  5. VBS正则表达式对象的MultiLine属性

随机文章:

  1. 利用 WindowsInstaller.Installer 对象计算文件 MD5 hash 值
  2. VBS获取硬盘序列号
  3. 48行计算24点C语言代码
  4. 用VBS判断操作系统是32位（x86）还是64位（x64）
  5. PHP & JavaScript: UTF-16 to UTF-8

这篇文章发布于 2010年10月1日，星期五，13:59，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

留下回复