“若bi和ai都是,则将ai,bi,ci反号;”是说若bi和ai同奇偶吗?
Which[Mod[#[[1]], 2] == 0 && Mod[#[[2]], 2] == 1, #,
Mod[#[[1]], 2] == Mod[#[[2]], 2], -#,
Mod[#[[1]], 2] == 1 && Mod[#[[2]], 2] == 0, {#[[2]], #[[1]], #[[3]]}] & /@ list
不是很简洁,速度也一般,虽然没用IF但用了Which。主要是这个排序条件太别扭了不知该怎么处理。抛砖引玉坐等大神了