博客
关于我
R语言:作业四(编写函数)
阅读量:349 次
发布时间:2019-03-04

本文共 310 字,大约阅读时间需要 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/

你可能感兴趣的文章
Objective-C实现even_tree偶数树算法(附完整源码)
查看>>
Objective-C实现Exceeding words超词(差距是ascii码的距离) 算法(附完整源码)
查看>>
Objective-C实现exchange sort交换排序算法(附完整源码)
查看>>
Objective-C实现ExponentialSearch指数搜索算法(附完整源码)
查看>>
Objective-C实现extended euclidean algorithm扩展欧几里得算法(附完整源码)
查看>>
Objective-C实现ExtendedEuclidean扩展欧几里德GCD算法(附完整源码)
查看>>
Objective-C实现external sort外排序算法(附完整源码)
查看>>
Objective-C实现Factorial digit sum阶乘数字和算法(附完整源码)
查看>>