Sorting algorithms/Pancake sort: Difference between revisions
m
→{{header|Mathematica}}
Line 2,404:
[0, 1, 2, 3, 3, 8, 17, 36, 40, 72]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[LMaxPosition
With[{b = Take[a, n]}, First[Ordering[b, -1]]]
SetAttributes[Flip, HoldAll];
▲ If[LMaxPosition[a,n] < n,
For[n = Length[a], n > 1, n--,
Flip[a[[;;n]]]; Print[a];▼
If[lm < n,
Flip[a[[;; lm]]];
Print[a];
Print[a];
▲pancakeSort[{6, 7, 8, 9, 2, 5, 3, 4, 1}]
];
]
{9,8,7,6,2,5,3,4,1}▼
]
pancakeSort[{6, 7, 8, 9, 2, 5, 3, 4, 1}]</lang>
{{out}}
▲<pre>{9,8,7,6,2,5,3,4,1}
{1,4,3,5,2,6,7,8,9}
{5,3,4,1,2,6,7,8,9}
|