出题:枚举N以内的质数(素数)[已解决]

cvwyg

收藏了。谢谢楼主分享

星云散落

学习啊~~~~~~~~~

gczxhzb

自己的效率太低下了

82809085

看看什么东西看看什么东西看看什么东西看看什么东西看看什么东西

vteovi

看看怎么才能提高效率

xjdjpbp

看看結果~

順便學學到底什麼是素數

akk08

进来学习一下

mjjzt

看看 你写的，什么是效率

MaGiCmAn

留名学习！谢谢分享！

netegg

[au3]Func _IsPrime($i_num)
    If StringIsDigit($i_num) = 0 Then Return -1
    If $i_num > 3 Then
        If Mod($i_num, 2) = 0 Then Return 0
        If Mod($i_num, 3) = 0 Then Return 0
    EndIf
    If $i_num = 1 Then Return 0
    Dim $divisor, $increment, $maxdivisor
    $divisor = 5
    $increment = 2
    $maxdivisor = Sqrt($i_num) + 1
   
    Do
        If Mod($i_num, $divisor) = 0 And $i_num <> $divisor Then Return 0
        $divisor = $divisor + $increment
        $increment = 6 - $increment
    Until $divisor > $maxdivisor
    Return 1
EndFunc ;==>_IsPrime
[/au3]

moyixiang901

看看大神的方法！！支持！！

nqawen

学习来了，谢谢

樱花雪月

看看是什么好东西哟

bocky

跟前辈学习了

fan6287400

谢谢分享，回复学习。