VBS 正则判别素数(质数) |
|
本文标签：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 用正则表达式判断质数，神一样的人物 。 |
