用R语言实现大整数加法（初学）

话不多说，附上源码，可以写在脚本中用source命令直接运行；

#! /path/to/Rscript
i0<-1
i00<-1
a<-""
b<-""
for(i in 1:100){
a<-paste("1",a,sep="")
i<-i+1
}
for(i00 in 1:150){
b<-paste("9",b,sep="")
i00<-i00+1
}
comulate<-function(n1,n2){
i1<-nchar(n1)
i2<-nchar(n2)
m<-0
if(i1>i2)n<-i1 else n<-i2
sum<-""
repeat{
k<-(as.numeric(substr(n1,i1,i1))+as.numeric(substr(n2,i2,i2))+m)
if(nchar(k)==2){
m <-as.numeric(substr(as.character(k),1,1))
if(i1>1&&i2>1){
sum<-