用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. 88行代码实现俄罗斯方块游戏(含讲解)
  2. 在线VBScript代码格式化工具VbsBeautifier
  3. C语言调用API获取程序自身的路径
  4. 用C语言实现PHP的base64_decode函数
  5. 利用WMI打造完美“三无”后门-U盘侦测与Autorun

留下回复