大神们，比比眼里，帮我看看我这个程序出错在哪里？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

> p<-c(3,5,6,7,9,8)
> position<-function(p,left,right)
+ {
+  left=1
+  right=6
+  ch=p[1]
+  while(left<right)
+  {
+             while(p[right]>=ch)
+       {right=right-1}
+ if(left<right)
+ {
+                   temp=p[right]
+ p[right]=p[left]
+ p[left]=temp
+  
+ }
+ while(p[left]<=ch)
+              {left=left+1}
+             if(left<right)
+             {
+ temp=p[left]
+ p[left]=p[right]
+ p[right]=temp
+             }
+  }
+   p[left]=ch
+  return (left)
+ }
> position(p,1,6)
Error in while (p[right] >= ch) { : argument is of length zero
>

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：position OSI POS sit TIO 程序

还是在排序吗？

是的。呜呜，自学的R，老师让我实现快速排序的算法。必须自己实现，不要套用别人的代码

把p<-c(3,5,6,7,9,8)放到function里面去。

当你把p<-c(3,5,6,7,9,8)放在function外面时，p<-c(3,5,6,7,9,8)的这个p所在的环境是GlobalEnv。

而function(p,left,right)里面的这个p的环境是function本身。换句话说，你只定义了GlobalEnv里的p，但是还没有定义function里的p，你程序里的两个p是不同的两个p。

所以R报错告诉你，“argument 的长度是0”。也就是说，function(p, left, right)找不到你想要的那个function环境里的p。

zhgzhckc 发表于 2013-10-22 00:20
把p

好像还不行，亦然会报错。非常感谢你。