想要d中每组间隔小于10的数存在一起输出来，但目前计算不完，代码如下：
> d
[1]  478  477  477  477  476  483  609  635
[9]  654  947  947  948  948  948  949  949
[17]  949  948  948  948  948  950  950  963
[25] 1020 1021 1020 1020 1020 1018 1074 1074
[33] 1163 1161 1161 1176 1176 1176 1176 1206
[41] 1265 1264 1265
i=length(d)
f=NULL
while(3<=i&i<=length(d)){
  for(j in (i-1):1){
    while(d[i]-d[j]>=10&d[i]-d[j]>=-10){
      f<-c(i:(j+1))
      i=j
      print(f)
      print(i)
    }
  }
}