all tasks

Task/Sorting-algorithms-Gnome-sort/Icon/sorting-algorithms-gnome-sort.icon

@@ -0,0 +1,19 @@
+procedure main()                     #: demonstrate various ways to sort a list and string
+   demosort(gnomesort,[3, 14, 1, 5, 9, 2, 6, 3],"qwerty")
+end
+
+procedure gnomesort(X,op)            #: return sorted list
+local i,j
+
+   op := sortop(op,X)                # select how and what we sort
+
+   j := (i := 2) + 1                 # translation of pseudo code
+   while i <= *X do {
+      if op(X[i],X[i-1]) then {
+         X[i] :=: X[i -:= 1]
+         if i > 1 then next
+      }
+      j := (i := j) + 1
+   }
+   return X
+end