VBS 正則判別素數(shù)(質(zhì)數(shù))
利用正則判別素數(shù),來源于網(wǎng)絡(luò),神人!
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
看到標題你一定會不屑一顧,枚舉質(zhì)數(shù)誰不會?
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
用正則表達式判斷質(zhì)數(shù),神一樣的人物。
來源:
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533
相關(guān)文章
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼...2007-03-03VBSCript之GenerateSDDL函數(shù)(權(quán)限設(shè)置)
自己寫的一個函數(shù)和應用實例,用于設(shè)置對象的相關(guān)權(quán)限,需要的朋友可以參考下2013-07-07Dynamic Activity Window動態(tài)活動窗口vbs
Dynamic Activity Window動態(tài)活動窗口2008-12-12用VBS模擬實現(xiàn)PHP的sha1_file函數(shù)效果代碼
用VBS模擬實現(xiàn)PHP的sha1_file函數(shù)效果代碼,需要的朋友可以參考下。2011-01-01Windows Script Host之用vbs實現(xiàn)[瀏覽文件夾]功能
Windows Script Host之用vbs實現(xiàn)[瀏覽文件夾]功能...2007-07-07