卷积函数可以写成尾递归形式吗？

我有一个函数，我想以尾递归形式编写。该函数计算求和的方法数k通过滚动s双面模具n次。我已经在上面看到了这个函数的数学解这个答案 https://math.stackexchange.com/questions/397689/why-convolution-regularize-functions/398146#398146。如下：

我在 R 中的参考递归实现是：

sum_ways <- function(n_times, k_sum, s_side) {
  if (k_sum < n_times || k_sum > n_times * s_side) {
    return(0)
  } else if (n_times == 1) {
    return(1)
  } else {
    sigma_values <- sapply(
      1:s_side, 
      function(j) sum_ways(n_times - 1, k_sum - j, s_side)
    )
    return(sum(sigma_values))
  }
}

正如我所学到的，我尝试以连续传递的方式重写该函数这个答案 https://stackoverflow.com/a/1889060/426444，但我没有成功。有没有办法以尾递归形式编写这个函数？

EDIT

我知道 R 没有针对尾递归进行优化。我的问题不是特定于 R 的，任何其他语言的解决方案也同样受欢迎。即使它是一种没有针对尾递归进行优化的语言。

sapply不是连续传递风格，所以你必须替换它。

这是 Python 中延续传递风格的翻译（另一种语言）not有适当的尾部调用）：

def sum_ways_cps(n_times, k_sum, s_side, ctn):
    """Compute the number of ways to get the sum k by rolling an s-sided die
    n times. Then pass the answer to ctn."""

    if k_sum < n_times or k_sum > n_times * s_side:
        return ctn(0)
    elif n_times == 1:
        return ctn(1)
    else:
        f = lambda j, ctn: sum_ways_cps(n_times - 1, k_sum - j, s_side, ctn)
        return sum_cps(1, s_side + 1, 0, f, ctn)

def sum_cps(j, j_max, total_so_far, f, ctn):
    """Compute the sum of f(x) for x=j to j_max.
    Then pass the answer to ctn."""

    if j > j_max:
        return ctn(total_so_far)
    else:
        return f(j, lambda result: sum_cps(j + 1, j_max, total_so_far + result, f, ctn))


sum_ways_cps(2, 7, 6, print)  # 6