#-----------
# 三角数（triangular number）のリストを生成、テキスト形式で保存
#-----------
# 環境変数、初期変数の設定
sfold="D:\\R\\triangular_number" #データ保存フォルダ
maxval=100000 #探索範囲最大値
viewval=as.integer(maxval/10) #画面表示判定用
sfile=paste("tnlist",maxval,".txt",sep="") #保存ファイル名
#----------
setwd(sfold) #カレントディレクトリの変更
arr_tn  <- numeric(1) #三角数を格納する配列（0を並べた配列を用意）
i=1  #i番目の三角数
arr_tn[1]<-i  #1番目の三角数
i=i+1
sink("log.txt")
sink()
starttime<-proc.time()
while(i<=maxval){ #探索範囲
  arr_tn[i]=arr_tn[i-1]+i
  if(i%%viewval==0){ #画面表示の条件
    endtime<-proc.time()
    keika=(endtime-starttime)[3]
    sink("log.txt",append=TRUE)
    cat("Tn(",i,")=",arr_tn[i]," 経過時間=",keika,"\n")
    sink()
    cat("Tn(",i,")=",arr_tn[i]," 経過時間=",keika,"\n")
  }
  i=i+1
}
write.table(arr_tn,sfile,quote=FALSE,row.names=FALSE,col.names=FALSE) #データファイル保存
rm(list=ls(all=TRUE)) #全体の初期化