Greatest Common Factor

[greggklein]

Is there an easier way to find Greatest Common Factor:

Do

$x = Random(1,500,1)

$y = Random(1,500,1)

Until $x < $y

While $y/$x > Floor($y/$x)

$newx = $x

$x = $y-$x*Floor($y/$x)

$y = $newx

WEnd

$gcf = $x

MsgBox("","GCF","The GCF of "&$x& " and "& $y& " is "&$x)

[JustinReno]

Yes.

[greggklein]

Yes.

what is it?

[JustinReno]

Thats for you to ask in the correct subforum.

[greggklein]

Thats for you to ask in the correct subforum.

what sub forum would taht be?

[JustinReno]

What do you think it is?

[greggklein]

What do you think it is?

why are you running me around

[JustinReno]

I'm not, its common sense to post in the H-E-L-P forum when you need help, not in the forum "Post your cool and finished scripts"

Edit: Typo

Edited April 27, 2008 by JustinReno

[greggklein]

I'm not, its commen sense to post in the H-E-L-P forum when you need help, not in the forum "Post your cool and finished scripts"

This site is not well organized. I didn't ralize I was in the wrong place. Next time just tell me where, instead of f'n with me

[JustinReno]

Its organized perfectly well. Only people who cannot identify context clues to post in the right sub forum say that.

[Innovative]

Its organized perfectly well. Only people who cannot identify context clues to post in the right sub forum say that.

Correction , it should be , only people who are disabled in some ways cannot identify the correct section to post .

[ProgAndy]

Thers another way, I think I found it on wikipedia:

Func _EuklidGGT($zahl1, $zahl2)
    while $zahl2 <> 0
        $temp =   Mod($zahl1, $zahl2)
        $zahl1 = $zahl2
        $zahl2 = $temp
    WEnd
    return $zahl1
EndFunc