Mod UDF

[WolfWorld]

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         Athiwat Chunlakhan

 Script Function:
    _Mod($b, $e, $m)
    
    Submit as an UDF

#ce ----------------------------------------------------------------------------

$b = 4
$e = 13
$m = 497

MsgBox(0, 'Mod', Mod($b ^ $e, $m)) ; This return the right value
MsgBox(0, '_Mod', _Mod($b, $e, $m)) ; This return the right value

$b = 444
$e = 5555
$m = 455

MsgBox(0, 'Mod', Mod($b ^ $e, $m)) ; This return the WRONG value
MsgBox(0, '_Mod', _Mod($b, $e, $m)) ; This return the right value

Func _Mod($b, $e, $m) ; Base, power, mod
    Local $c = 1
    For $i = 1 to  $e
        $c = Mod($c * $b, $m)
    Next
    Return $c
EndFunc   ;==>_Mod

Edited September 14, 2008 by athiwatc

[martin]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1

Author: Athiwat Chunlakhan

Script Function:

_Mod($b, $e, $m)

Submit as an UDF

#ce ----------------------------------------------------------------------------

$b = 4

$e = 13

$m = 497

MsgBox(0, 'Mod', Mod($b ^ $e, $m)) ; This return the right value

MsgBox(0, '_Mod', _Mod($b, $e, $m)) ; This return the right value

$b = 444

$e = 5555

$m = 455

MsgBox(0, 'Mod', Mod($b ^ $e, $m)) ; This return the WRONG value

MsgBox(0, '_Mod', _Mod($b, $e, $m)) ; This return the right value

Func _Mod($b, $e, $m) ; Base, power, mod

Local $c = 1, $eIN = 0

While $eIN < $e

$eIN += 1

$c = Mod($c * $b, $m)

WEnd

Return $c

EndFunc ;==>_Mod

Code tags around your scripst would improve the look.

Looks very similar to this.. I think the for/next loop would be faster.

[WolfWorld]

Code tags around your scripst would improve the look.

Looks very similar to this.. I think the for/next loop would be faster.

Oops, I don't know Its already there

[martin]

Oops, I don't know Its already there

Well great minds you know