Anonymous user
Greatest common divisor: Difference between revisions
Purebasic code was wrong.
imported>Skywalk (Purebasic code was wrong.) |
|||
Line 1,632:
==={{header|PureBasic}}===
====Iterative====
<syntaxhighlight lang="purebasic">
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▼
Wend
ProcedureReturn
EndProcedure
Debug GCD(18, 12) ; 6
Debug GCD(1071, 1029) ; 21
Debug GCD(3528, -3780) ; 252
▲EndProcedure</syntaxhighlight>
==={{header|QuickBASIC}}===
|