一个整数构成的向量,如何做到奇数按照降序排列偶数按照升序排列?

mathematica

如Example input: (1,4,5,2,3,6,7) Output: (7,5,3,1,2,4,6) 问题来源: http://stackoverflow.com/questio ... -in-ascending-order 链接里面有答案,但是不是用mathematica等数学软件写的, 不要写看答案,要先写,再看答案 各显神通吧!

mathematica

1. Clear["Global`*"];(*Clear all variables*)
2. a=RandomInteger[{1,20},10] (*需要被排序的向量*)
3. jishu=Sort[Select[a,OddQ],#1>#2&] (*选出奇数降序排列*)
4. oushu=Sort[Select[a,EvenQ],#1<#2&] (*选出偶数升序排列*)
5. asort1={jishu,oushu} (*求解结果,第一种表现形式*)
6. asort2=Flatten[asort1] (*求解结果,第二种表现形式*)

复制代码

mathematica

图形式

mathematica

这个太简单了,改一下,换一下要求,要求排序后, 奇数只能在原来的奇数的位置上, 偶数只能在原来的偶数的位置上! 比如{2,1,5,6,3,4} 结果是{2,5,3,4,1,6}, 原来的第1\4\6位是偶数,排序后,仍然是偶数,按照升序排序 原来的第2\3\5位是奇数,排序后,仍然是奇数,按照降序排序 这下子提高了问题的难度,刚才的那个实在是没什么难度!

mathematica

这个问题用excel和matlab还真不难,但是我还真的不会用mathematica做!

G-Spider

＃4 加奇偶判断，冒泡法，快速排序是可以的。