all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Gnome-sort/PureBasic/sorting-algorithms-gnome-sort.purebasic
+++ b/Task/Sorting-algorithms-Gnome-sort/PureBasic/sorting-algorithms-gnome-sort.purebasic
@ -0,0 +1,19 @@
+Procedure GnomeSort(Array a(1))
+  Protected Size = ArraySize(a()) + 1
+  Protected i = 1, j = 2
+
+  While i < Size
+    If a(i - 1) <= a(i)
+      ;for descending SORT, use >= for comparison
+      i = j
+      j + 1
+    Else
+      Swap a(i - 1), a(i)
+      i - 1
+      If i = 0
+        i = j
+        j + 1
+      EndIf
+    EndIf
+  Wend
+EndProcedure