Re: [VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
※ 引述《costbook (沒$結婚幹嘛,有$幹嘛結婚)》之銘言：
: '找出範圍內所有整數質數
: 'VB .NET
: Dim nonprimes(0) As Boolean
: Sub getAllPrime(ByVal top As Integer)
: ReDim nonprimes(top)
: Dim value As New MyInt(Of Integer)
: nonprimes(0) = True
: nonprimes(1) = True
: Dim i As Integer = 2
: '用篩法標記ｐｒｉｍｅ和ｎｏｎｐｒｉｍｅ
: While i <= top / i
: '這邊用myInt class，速度會比用isPrime() function慢
: value.setting(i)
: If value.isPrime() Then
: For j As Integer = 2 To top / i
: If j * i <= top Then
: nonprimes(j * i) = True
: End If
這段有點不明白
既然 i <= top / i
又 j = 2 ～ top / i
那 i*j 一定會 <= top 才對
那就不用判斷 If j * i <= top 了
直接下 nonprimes(j * i) = True 不就好了?
: Next
: End If
: i += 1
: End While
: End Sub
--
迷時師渡 悟時自渡
～ 六祖惠能
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.241.123.132
推
10/02 15:38, , 1F
10/02 15:38, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 4 篇)：