IsPrime()

[James]

A simple math function I did for my sisters homework.

Func IsPrime($io_number)
    Local $Num
    $Num = Abs($io_number)
    If $Num < 2 And $Num > -2 Then Return 1
    For $a = 2 To Int(($Num / 2) + 1)
        If Mod($Num, $a) = 0 Then Return 0
    Next
    Return 1
EndFunc   ;==>IsPrime

-James

[martin]

A simple math function I did for my sisters homework.

Func IsPrime($io_number)
    Local $Num
    $Num = Abs($io_number)
    If $Num < 2 And $Num > -2 Then Return 1
    For $a = 2 To Int(($Num / 2) + 1)
        If Mod($Num, $a) = 0 Then Return 0
    Next
    Return 1
EndFunc   ;==>IsPrime

-James

For big numbers this will probably be quite slow, so you could save some time by ignoring even numbers after 2

Func IsPrime($io_number)
    Local $Num
    $Num = Abs($io_number)
    If $Num < 2 And $Num > -2 Then Return 1
    
    If Mod($Num, 2) = 0 Then Return 0
    
    For $a = 3 To Int(($Num / 2) + 1) Step 2
        If Mod($Num, $a) = 0 Then Return 0
    Next
    Return 1
EndFunc  ;==>IsPrime

Not tried it though!

[James]

Nice

I just followed an equation I found somewhere.