Rosetta Code

Sorting algorithms/Pancake sort: Difference between revisions

Page Discussion

Sorting algorithms/Pancake sort (view source)

Revision as of 12:56, 1 February 2021

275 bytes removed ,  3 years ago
m
→‎{{header|Phix}}: shorter version
(Added AppleScript.)
m (→‎{{header|Phix}}: shorter version)
Line 2,749:
 
=={{header|Phix}}==
<lang Phix>function pancake_sort(sequence s)▼
Copy of [[Sorting_algorithms/Pancake_sort#Euphoria|Euphoria]]
<lang Phix>function flip(sequence s, integer n)
for i=1 to floor(n/2) do
{s[i],s[n-i+1]} = {s[n-i+1],s[i]}
end for
return s
end function
▲function pancake_sort(sequence s)
integer m
for i=length(s) to 2 by -1 do
m = largest(s[1..i],true)
for j=2 to i do
if s[j]>s[m] then
m = j
end if
end for
if m<i then
if m>1 then
s[1..m] = flipreverse(s,[1..m])
end if
s[1..i] = flipreverse(s,[1..i])
end if
end for
Petelomax
7,805

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/145270"