VBS 正则判别素数(质数)

171 阅读 0 评论 113 点赞

我是靠谱客的博主纯真摩托，最近开发中收集的这篇文章主要介绍VBS 正则判别素数(质数)，觉得挺不错的，现在分享给大家，希望可以做个参考。

利用正则判别素数，来源于网络，神人！

复制代码代码如下:

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

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

复制代码代码如下:

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

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

来源：
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533

以上就是纯真摩托为你收集整理的VBS 正则判别素数(质数)的全部内容，希望文章能够帮你解决VBS 正则判别素数(质数)所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。