作者:
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可改成任意未定義的函數 但不能出現於串列中