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

疑難解答

圖片精選

網友關注

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