June 2018 Update

Task/Sorting-algorithms-Comb-sort/Gambas/sorting-algorithms-comb-sort.gambas

@@ -0,0 +1,43 @@
+Public Sub Main()
+Dim siToSort As Short[] = [249, 28, 111, 36, 171, 98, 29, 448, 44, 147, 154, 46, 102, 183, 24,
+                          120, 19, 123, 2, 17, 226, 11, 211, 25, 191, 205, 77]
+Dim siStart As Short
+Dim siGap As Short = siToSort.Max
+Dim bSorting, bGap1 As Boolean
+
+Print "To sort: -"
+ShowWorking(siToSort)
+Print
+
+Repeat
+  bSorting = False
+  siStart = 0
+  If siGap = 1 Then bGap1 = True
+
+  Repeat
+    If siToSort[siStart] > siToSort[siStart + siGap] Then
+      Swap siToSort[siStart], siToSort[siStart + siGap]
+      bSorting = True
+    End If
+    Inc siStart
+  Until siStart + siGap > siToSort.Max
+
+  If bSorting Then ShowWorking(siToSort)
+  siGap /= 1.3
+  If siGap < 1 Then siGap = 1
+
+Until bSorting = False And bGap1 = True
+
+End
+'-----------------------------------------
+Public Sub ShowWorking(siToSort As Short[])
+Dim siCount As Short
+
+For siCount = 0 To siToSort.Max
+  Print Str(siToSort[siCount]);
+  If siCount <> siToSort.Max Then Print ",";
+Next
+
+Print
+
+End