Data commit

Task/Closest-pair-problem/PureBasic/closest-pair-problem-1.basic

@@ -0,0 +1,19 @@
+Procedure.d bruteForceClosestPair(Array P.coordinate(1))
+  Protected N=ArraySize(P()), i, j
+  Protected mindistance.f=Infinity(), t.d
+  Shared a, b
+  If N<2
+    a=0: b=0
+  Else
+    For i=0 To N-1
+      For j=i+1 To N
+        t=Pow(Pow(P(i)\x-P(j)\x,2)+Pow(P(i)\y-P(j)\y,2),0.5)
+        If mindistance>t
+          mindistance=t
+          a=i: b=j
+        EndIf
+      Next
+    Next
+  EndIf
+  ProcedureReturn mindistance
+EndProcedure

Task/Closest-pair-problem/PureBasic/closest-pair-problem-2.basic

@@ -0,0 +1,29 @@
+Structure coordinate
+  x.d
+  y.d
+EndStructure
+
+Dim DataSet.coordinate(9)
+Define i, x.d, y.d, a, b
+
+;- Load data from datasection
+Restore DataPoints
+For i=0 To 9
+  Read.d x: Read.d y
+  DataSet(i)\x=x
+  DataSet(i)\y=y
+Next i
+
+If OpenConsole()
+  PrintN("Mindistance= "+StrD(bruteForceClosestPair(DataSet()),6))
+  PrintN("Point 1= "+StrD(DataSet(a)\x,6)+": "+StrD(DataSet(a)\y,6))
+  PrintN("Point 2= "+StrD(DataSet(b)\x,6)+": "+StrD(DataSet(b)\y,6))
+  Print(#CRLF$+"Press ENTER to quit"): Input()
+EndIf
+
+DataSection
+  DataPoints:
+  Data.d  0.654682, 0.925557, 0.409382, 0.619391, 0.891663, 0.888594
+  Data.d  0.716629, 0.996200, 0.477721, 0.946355, 0.925092, 0.818220
+  Data.d  0.624291, 0.142924, 0.211332, 0.221507, 0.293786, 0.691701, 0.839186,  0.72826
+EndDataSection