VBS 正則判別素?cái)?shù)(質(zhì)數(shù))
利用正則判別素?cái)?shù),來(lái)源于網(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
看到標(biāo)題你一定會(huì)不屑一顧,枚舉質(zhì)數(shù)誰(shuí)不會(huì)?
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
幾行代碼就能搞定,如此簡(jiǎn)單。那就看看下面這個(gè)程序吧!
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
用正則表達(dá)式判斷質(zhì)數(shù),神一樣的人物。
來(lái)源:
http://demon.tw/programming/vbs-prime-number.html
http://www.enun.net/?p=533
相關(guān)文章
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼
ntiIframe.vbs用于批量清除被添加到文件中的惡意代碼...2007-03-03
VBSCript之GenerateSDDL函數(shù)(權(quán)限設(shè)置)
自己寫(xiě)的一個(gè)函數(shù)和應(yīng)用實(shí)例,用于設(shè)置對(duì)象的相關(guān)權(quán)限,需要的朋友可以參考下2013-07-07
vbs 多線(xiàn)程下載實(shí)現(xiàn)代碼
昨天重新看了下《深入挖掘Windows腳本技術(shù)》(原文不知道是誰(shuí)寫(xiě)的,網(wǎng)上到處都是)。里面提到了vbs多線(xiàn)程下載,今天嘗試寫(xiě)了一下2013-05-05
Dynamic Activity Window動(dòng)態(tài)活動(dòng)窗口vbs
Dynamic Activity Window動(dòng)態(tài)活動(dòng)窗口2008-12-12
用VBS模擬實(shí)現(xiàn)PHP的sha1_file函數(shù)效果代碼
用VBS模擬實(shí)現(xiàn)PHP的sha1_file函數(shù)效果代碼,需要的朋友可以參考下。2011-01-01
Windows Script Host之用vbs實(shí)現(xiàn)[瀏覽文件夾]功能
Windows Script Host之用vbs實(shí)現(xiàn)[瀏覽文件夾]功能...2007-07-07

