本文共 307 字，大约阅读时间需要 1 分钟。

本次作业题没什么亮点，所以没有什么拓展。

> fun <- function(n){
   + 	repeat{
   + 		if(n <= 0){
   + 			print("要求输入一个正整数")+ 			break+ 		}else if(n %% 2 == 0){
   + 			n <- n / 2+ 		}else if(n == 1){
   + 			print("运算成功")	+ 			break+ 		}else{
   + 			n <- 3 * n + 1+ 		}	+ 	}+ 	print(paste("n =",n))+ }

随意测试：

> fun(520)

[1] 运算成功

转载地址：http://wyse.baihongyu.com/