VBS 正則判別素數(質數)

2019-10-26 18:06:33

字體：大中小

來源：轉載

供稿：網友

利用正則判別素數，來源于網絡，神人！

復制代碼代碼如下:

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

學習交流

電腦開不了機的原因和解決辦法

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

2019-10-23 09:17:05

2019-10-21 09:20:02

2019-10-21 09:00:12

2019-09-26 08:57:12

2019-09-25 08:46:36

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本