我有下面一段程序。简单的讲，就是t+d=cp中的每一项。t和d的顺序是相反的。

cp <- c(28,3,4)

for (i in cp ){
  d <- 0
  while (d < i){
    t= i - d
    d = d + 1
  }}


问题是我跑完程序只有最后一个t和d，也就是d=4，t=1

怎么让d和t变成数组，记录所有的值。

谢谢！