- exper<-function(a,b){
- aa<-(a-b)
- print(aa)
- if(aa>=0) exper(aa,b)
- }
- > exper(10,3)
- [1] 7
- [1] 4
- [1] 1
- [1] -2
- exper<-function(a,b){
- aa<-(a-b)
- if(aa>=0) exper(aa,b)
- print(aa)
- }
- > exper(10,3)
- [1] -2
- [1] 1
- [1] 4
- [1] 7
|
楼主: Mutually_Sincer
|
2493
4
[问答] 关于R中递归函数的一点疑问 |
|
已卖:56份资源 博士生 89%
-
|
| ||
|
wanna be a stargazer
|
|||
|
|
| ||
| ||||||||
加好友,备注cda京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


