VBS 正则判别素数(质数)

2020-07-26 11:47:48

字体：大中小

来源：转载

供稿：网友

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

复制代码代码如下:

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

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

2020-07-20 18:48:56

2020-07-20 18:46:41

2020-07-20 18:43:20

2020-07-20 18:35:48

2020-07-17 23:29:31

2020-07-17 23:24:56

疑难解答

图片精选

网友关注