Jump to content

Greatest common divisor: Difference between revisions

Greatest common divisor (view source)

Revision as of 23:35, 14 January 2024

39 bytes added ,  5 months ago
Purebasic code was wrong.
imported>Skywalk
(Purebasic code was wrong.)
Line 1,632:
==={{header|PureBasic}}===
====Iterative====
<syntaxhighlight lang="purebasic">Procedure GCD(x, y)
Import "" ;msvcrt.lib
Protected r▼
AbsI(Quad.q) As "_abs64"
While y <> 0▼
AbsL(Long.l) As "labs"
r = x % y▼
EndImport
x = y▼
Procedure.i GCD(u.i, v.i)
y = r▼
▲ Protected.i rt
▲ While yv <> 0
▲ xt = yv
▲ rv = xu % yv
▲ yu = rt
Wend
ProcedureReturn yAbsI(u) ; Avoid float conversion with Abs(u).
EndProcedure</syntaxhighlight>
Debug GCD(18, 12) ; 6
 
Debug GCD(1071, 1029) ; 21
====Recursive====
Debug GCD(3528, -3780) ; 252
<syntaxhighlight lang="purebasic">Procedure GCD(x, y)
EndProcedure</syntaxhighlight>▼
Protected r
r = x % y
If (r > 0)
y = GCD(y, r)
EndIf
ProcedureReturn y
▲EndProcedure</syntaxhighlight>
 
==={{header|QuickBASIC}}===
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/348740"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information