用VBS枚举素数（质数）

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

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. VeryPDF CHM to PDF Converter 2.0 注册码
2. “WindowsLive.Writer.CoreServices.HttpRequestHelper”的类型初始值设定项引发异常
3. WordPress创建标签云（Tags）页面
4. 在C语言中嵌入执行VBS
5. 配置OpenWrt防止3DS自动升级

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