R语言：作业四（编写函数）

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

> 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] 运算成功