作者shingai (吸收正能量)
看板R_Language
标题[问题] 请教为何列印不出结果
时间Wed Nov 28 21:27:14 2018
[问题类型]:
回圈问题
[软体熟悉度]:
入门(写过其他程式，只是对语法不熟悉)
[问题叙述]:
涂色问题，我只是想列印出所有在2*3格子中，左右不同色且上下不同色的列举。
Run下去，完全没有动静，想请教如何排除障碍
[程式范例]:
m<-gtools::permutations(5,3,1:5,rep=FALSE);
for(i in 1:5)
{
if(j==1)
{
if(m[i,1]!=m[j,1])
{
if(m[i,2]!=m[j,2])
{
if(m[i,3]!=m[j,3])
{
print(rbind(m[i,],m[j,]))
}
}
}
}
}
[环境叙述]:
compiler_3.4.3 tools_3.4.3 gtools_3.8.1
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.40.139.244
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1543411636.A.21C.html
1F：→ andrew43: code不完整 11/28 21:47
2F：→ andrew43: 我不是很懂题意，猜你少了一层给j的for loop 11/28 21:55
3F：→ shingai: 我在测试j==1时跑不跑得出来... 11/28 21:59
5F：→ andrew43: ri如果不懂就先看看combn(1:5, 2)是什麽结果 11/28 22:18
6F：→ andrew43: 上下列全不等的判断不用检查3次，用all(上列 != 下列) 11/28 22:20
7F：→ shingai: ri真是关键！谢谢!! 我意会到我的码有好多洞了！ 11/28 22:41
8F：→ shingai: all(c(1,2,3)!=c(2,3,1)) 竟然是TRUE，这边好像怪怪的 11/28 22:45
9F：→ shingai: 没事...XD 11/28 22:49
10F：→ andrew43: 每列5抽3不放回可能和题意不符，例如某列1 2 1看来也符 11/29 07:53
11F：→ andrew43: 合题意。我只是照你的写法往下写。 11/29 07:53
12F：→ andrew43: 另外ri只是组合，使得成果的上列与下列对调不能被区分 11/29 10:45
14F：→ shingai: 谢谢，我搞错罗，不是涂色问题! 11/29 12:55