[問題] 請教為何列印不出結果

看板R_Language作者 (吸收正能量)時間5年前 (2018/11/28 21:27), 編輯推噓0(0014)
留言14則, 2人參與, 5年前最新討論串1/1
[問題類型]: 迴圈問題 [軟體熟悉度]: 入門(寫過其他程式,只是對語法不熟悉) [問題敘述]: 塗色問題,我只是想列印出所有在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://www.ptt.cc/bbs/R_Language/M.1543411636.A.21C.html

11/28 21:47, 5年前 , 1F
code不完整
11/28 21:47, 1F

11/28 21:55, 5年前 , 2F
我不是很懂題意,猜你少了一層給j的for loop
11/28 21:55, 2F

11/28 21:59, 5年前 , 3F
我在測試j==1時跑不跑得出來...
11/28 21:59, 3F

11/28 22:16, 5年前 , 4F
11/28 22:16, 4F

11/28 22:18, 5年前 , 5F
ri如果不懂就先看看combn(1:5, 2)是什麼結果
11/28 22:18, 5F

11/28 22:20, 5年前 , 6F
上下列全不等的判斷不用檢查3次,用all(上列 != 下列)
11/28 22:20, 6F

11/28 22:41, 5年前 , 7F
ri真是關鍵!謝謝!! 我意會到我的碼有好多洞了!
11/28 22:41, 7F

11/28 22:45, 5年前 , 8F
all(c(1,2,3)!=c(2,3,1)) 竟然是TRUE,這邊好像怪怪的
11/28 22:45, 8F

11/28 22:49, 5年前 , 9F
沒事...XD
11/28 22:49, 9F

11/29 07:53, 5年前 , 10F
每列5抽3不放回可能和題意不符,例如某列1 2 1看來也符
11/29 07:53, 10F

11/29 07:53, 5年前 , 11F
合題意。我只是照你的寫法往下寫。
11/29 07:53, 11F

11/29 10:45, 5年前 , 12F
另外ri只是組合,使得成果的上列與下列對調不能被區分
11/29 10:45, 12F

11/29 11:15, 5年前 , 13F
https://ideone.com/ZVizRL 這是沒有上述限制的code
11/29 11:15, 13F

11/29 12:55, 5年前 , 14F
謝謝,我搞錯囉,不是塗色問題!
11/29 12:55, 14F
文章代碼(AID): #1R_fUq8S (R_Language)