作者:
biglion ( )
2015-03-28 14:37:00纯粹玩玩 Flatten[Fold[{#2, #1} &, yourlist]]f/@yourlist//.{f[x_],t___,y___Integer}->{t,x,y}想要更复杂的方法一定找得到 不过效率都没有Reverse高抱歉 我忽略了串行元素未必为整数 前面规则式方法应改为:f/@list//.{f[x_],t___,y___?(FreeQ[#,f]&)}->{t,x,y}规则式中的f可改成任意未定义的函数 但不能出现于串行中