R语言：作业四（编写函数）
本文共 301 字，大约阅读时间需要 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/
你可能感兴趣的文章
nginx 开启ssl模块 [emerg] the “ssl“ parameter requires ngx_http_ssl_module in /usr/local/nginx
查看>>
Nginx 我们必须知道的那些事
查看>>
Nginx 源码完全注释（11）ngx_spinlock
查看>>
Nginx 的 proxy_pass 使用简介
查看>>
Nginx 的 SSL 模块安装
查看>>
Nginx 的优化思路，并解析网站防盗链
查看>>
Nginx 的配置文件中的 keepalive 介绍
查看>>
nginx 禁止以ip形式访问服务器
查看>>
Nginx 结合 consul 实现动态负载均衡
查看>>
Nginx 负载均衡与权重配置解析
查看>>
Nginx 负载均衡详解
查看>>
nginx 配置 单页面应用的解决方案
查看>>
nginx 配置https（一）—— 自签名证书
查看>>
nginx 配置~~~本身就是一个静态资源的服务器
查看>>
Nginx 配置服务器文件上传与下载
查看>>
Nginx 配置清单（一篇够用）
查看>>
Nginx 配置解析：从基础到高级应用指南
查看>>
Nginx 集成Zipkin服务链路追踪
查看>>
nginx 集群配置方式 静态文件处理
查看>>
nginx+mysql+redis+mongdb+rabbitmq 自动化部署脚本
查看>>