# 左右必不重覆的組合
m <- gtools::permutations(5, 3, 1:5, rep = FALSE)

# 取出二個列的所有可能組合列序號
ri <- combn(1:nrow(m), 2)

for(i in 1:ncol(ri)){
  
  # 這次關心的 2 * 3 矩陣
  m.this <- m[ri[, i], ]
  
  
  # 若上列與下列相對應的數完全相不等則印出來
  if(all(m.this[1, ] != m.this[2, ])) {
    print(m.this)
  }

}