R语言 如何得到每位数字均为1或0的八位向量的全部组合？
答案:1 悬赏:70 手机版
解决时间 2021-01-31 22:54
- 提问者网友：暗中人
- 2021-01-31 17:44
R语言 如何得到每位数字均为1或0的八位向量的全部组合？
最佳答案
- 五星知识达人网友：低音帝王
- 2021-01-31 19:01
实际上是一个二进制的实现
biset<-function(n){
one<-c(rep(0,n-1),1)
result<-one
final<-vector()
for(i in 1:(2^n-2)){
result<-result+one
while(sum(result==2)>0){
id<-which(result==2)
result[id-1]<-result[id-1]+1
result[id]<-0
}
final<-rbind(final,result)
}
dimnames(cc)[[1]]=NULL
return(rbind(one,final))
}
然后在控制台输入 >biset(8)
biset<-function(n){
one<-c(rep(0,n-1),1)
result<-one
final<-vector()
for(i in 1:(2^n-2)){
result<-result+one
while(sum(result==2)>0){
id<-which(result==2)
result[id-1]<-result[id-1]+1
result[id]<-0
}
final<-rbind(final,result)
}
dimnames(cc)[[1]]=NULL
return(rbind(one,final))
}
然后在控制台输入 >biset(8)
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯