wolfram-mathematica - 添加列表的最后两个元素

Question

在 Mathematica 中，最简洁的列表方式是什么

{r1, r2, r3, ..., rn, a, b}

然后返回

{r1, r2, r3, ..., rn, a + b}

或更一般地

{r1, r2, r3, ..., rn, f[a, b]}

对于某些函数f？

Answer 1

lst = {a[1], a[2], a[3], a[4], a[5], a[6], a[7], a, b}; 
lst /. {a___, b_, c_} -> {a, f[b, c]}

 ==> {a[1], a[2], a[3], a[4], a[5], a[6], a[7], f[a, b]}

或(丑陋的):

Append[Take[lst, {1, -3}], f @@ lst[[{-2, -1}]]]