R Repeat 循环

repeat { 
   commands 
   if(condition) {
      break
   }
}

v <- c("LEARNFK.COM","TOOLFK.COM","CHROMEFK.COM","POEMFK.COM")
cnt <- 2
repeat {
   print(v)
   cnt <- cnt+1
   
   if(cnt > 5) {
      break
   }
}

sum <- 0
{
	n1<-readline(prompt="Enter any integer value below 20: " )
	n1<-as.integer(n1)
}
repeat{
	sum<-sum+n1
	n1=n1+1
	if(n1>20){
		break
	}
}
cat("The Learnfk.com sum of numbers from the repeat loop is: ",sum)

total<-0
number<-readline(prompt="please enter any integer value: ")
number<-as.integer(number)
repeat{
  total=total+number
  number=number+1
  cat("sum is =",total)
}

a <- 1          
repeat {    
  if(a == 10)  
    break  
  if(a == 7){  
    a=a+1
    next     
  }
  print(a)  
  a <- a+1    
}  

terms<-readline(prompt="大佬,赏几杯绿茶 ?")
terms<-as.integer(terms)
i<-1
repeat{
	print(paste("我要打赏:",i,"is =",(i*i*i)))
	if(i==terms)
		break
	i<-i+1
}