Data update

Task/Greatest-common-divisor/PureBasic/greatest-common-divisor-1.basic

@@ -1,9 +0,0 @@
-Procedure GCD(x, y)
-  Protected r
-  While y <> 0
-    r = x % y
-    x = y
-    y = r
-  Wend
-  ProcedureReturn y
-EndProcedure

Task/Greatest-common-divisor/PureBasic/greatest-common-divisor-2.basic

@@ -1,8 +0,0 @@
-Procedure GCD(x, y)
-  Protected r
-  r = x % y
-  If (r > 0)
-    y = GCD(y, r)
-  EndIf
-  ProcedureReturn y
-EndProcedure

Task/Greatest-common-divisor/PureBasic/greatest-common-divisor.basic

@@ -0,0 +1,16 @@
+Import "" ;msvcrt.lib
+  AbsI(Quad.q) As "_abs64"
+  AbsL(Long.l) As "labs"
+EndImport
+Procedure.i GCD(u.i, v.i)
+  Protected.i t
+  While v <> 0
+    t = v
+    v = u % v
+    u = t
+  Wend
+  ProcedureReturn AbsI(u) ; Avoid float conversion with Abs(u).
+EndProcedure
+Debug GCD(18,    12)     ; 6
+Debug GCD(1071,  1029)   ; 21
+Debug GCD(3528,  -3780)  ; 252