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

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -0,0 +1,10 @@
LMaxPosition[ a_, n_ ] := Part[Position[a[[;;n]],Max[a[[;;n]]]],1,1]
SetAttributes[Flip,HoldFirst]; Flip[a_] := Set[a,Reverse[a]]
pancakeSort[a_] : = For[n = Length[a], n > 1, n--,
If[LMaxPosition[a,n] < n,
Flip[a[[;;LMaxPosition[a,n]]]]; Print[a];
Flip[a[[;;n]]]; Print[a];
];
];