aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Sorting-algorithms-Pancake-sort/Mathematica/sorting-algorithms-pancake-sort.math Normal file
View file

@ -0,0 +1,17 @@
ClearAll[LMaxPosition, Flip, pancakeSort]
LMaxPosition[a_, n_] := With[{b = Take[a, n]}, First[Ordering[b, -1]]]
SetAttributes[Flip, HoldAll];
Flip[a_] := Set[a, Reverse[a]]
pancakeSort[in_] := Module[{n, lm, a = in, flips = 0},
Do[
lm = LMaxPosition[a, n];
If[lm < n,
Flip[a[[;; lm]]];
Flip[a[[;; n]]];
];
,
{n, Length[a], 2, -1}
];
a
]
pancakeSort[{6, 7, 8, 9, 2, 5, 3, 4, 1}]