s2=Table[#[[-i ;;]], {i, Length@# - 1, 1, -1}] &@s1这是最容易想到的，不过恐怕也是速度最慢的。稍好一些的可以写：NestList[Rest, Rest@#, Length@# - 2] &@s1最快的办法是什么我也不知道，我去贴吧帮你问问吧。
