Sorting algorithms/Shell sort: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,682: / Line 1,682: @@
 output = -5 2 4 7 8 22
 </pre>
+=={{header|Phix}}==
+Copy of [[Sorting_algorithms/Shell_sort#Euphoria|Euphoria]]
+<lang Phix>function shell_sort(sequence s)
+integer gap = floor(length(s)/2), j
+object temp
+    while gap>0 do
+        for i=gap to length(s) do
+            temp = s[i]
+            j = i-gap
+            while j>=1 and temp<=s[j] do
+                s[j+gap] = s[j]
+                j -= gap
+            end while
+            s[j+gap] = temp
+        end for
+        gap = floor(gap/2)
+    end while
+    return s
+end function</lang>
 =={{header|PHP}}==