求助~简单排序 但是弄了好久没成功- -感谢！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

[img]file:///C:\Users\SONGLEI\Documents\Tencent Files\88349230\Image\Group\)]9(7`HTTATHHX(AP[F$C0B.png[/img] 这是我写的从小到大排序。但是输入selsort（c(2,4,5,3,5,7))  会出现7 7 7 7 7 7.
找了很久很久很久 - - 虽然知道t 在return后 会归零。但是就是不知道什么原因 也不知道怎么改

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：documents Document Tencent DOCUME RETURN return

不好意思 - -我贴一下 code
t<-integer(0)
selsort<-function(v){
  l=length(v)
  if(l==1){
    return(v)
  }else
    for(i in 1:l)if(v==min(v)){
      t<-c(t,v)
      v<-max(v)
    }
  if(length(t)==l){
    return(t)
  }else{
    return(selsort(v))
  }
}

按一楼的代码说

for循环外面应再加一for循环
另外函数内部引用正在创建的函数是高级用法吗我没见过？还是你是文科生？

没看懂要做什么

万人往LVR 发表于 2015-10-9 16:33
按一楼的代码说

for循环外面应再加一for循环

谢谢!  昨天老师刚讲的recursion  下面的例子factorial <- function(n) {
  if(n==1) {
    return(n)
  else {
    return(n*factorial(n-1))
}
}

我也想循环- -就按照老师给的例子试了下  可是刚学R  并不擅长- -你这么一说 看来循环写的太糟糕了- -
那请问下- -怎么写for循环  非常感谢

jinkelazzz 发表于 2015-10-9 16:55
没看懂要做什么

就是从数列里 一个个的找最小值  找到最小值后  把最小值换成最大值。 其实应该换成infinite  但是并不知道无限大  在R里怎么写   谢谢了

> f<-function(v)
+ {
+   while(min(v)<max(v))
+   {
+     v[which.min(v)]<-max(v)
+   }
+   return(v)
+ }
> x<-1:6
> f(x)
[1] 6 6 6 6 6 6

> f<-function(v)
+ {
+   while(min(v)<max(v))
+   {
+     v[which.min(v)]<-max(v)
+     print(v)
+   }
+ }
> x<-1:6
> f(x)
[1] 6 2 3 4 5 6
[1] 6 6 3 4 5 6
[1] 6 6 6 4 5 6
[1] 6 6 6 6 5 6
[1] 6 6 6 6 6 6

jinkelazzz 发表于 2015-10-10 09:53
> f

- -有头绪了么

静後 发表于 2015-10-10 10:08
- -有头绪了么

这个不是你要的吗？