VBS 正则判别素数(质数)
2017年03月12日
利用正则判别素数,来源于网络,神人!
复制代码 代码如下:
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
用正则表达式判断质数,神一样的人物。
相关阅读
-
工商银行喜结良缘金条30克价格今天多少一克(2024年05月03日)
-
工商银行筑梦中华金条100克价格今天多少一克(2024年05月03日)
-
2024版熊猫纪念币150克精制金币现在市场价是多少(2024年05月03日)
-
2024版3克熊猫金币价格(2024年05月03日)
-
周生生铂金多少钱一克(2024年05月03日)参考价格
-
北京菜百铂金多少钱一克(2024年05月03日)参考价格
-
北京菜百黄金价格今天多少一克(2024年05月03日)
-
上海老庙铂金多少钱一克(2024年05月03日)参考价格
-
黄金9995价格多少钱一克(2024年05月03日)
-
周大福黄金价格今天多少一克(2024年05月03日)