sapply(1:5,function(x){ j <- combn(1:5,x) # 把所有的組合列出來 t(j[,j[1,]%in%1]) # 只留1開頭的結果並轉置 })
Standard input is empty
[[1]] [,1] [1,] 1 [[2]] [,1] [,2] [1,] 1 2 [2,] 1 3 [3,] 1 4 [4,] 1 5 [[3]] [,1] [,2] [,3] [1,] 1 2 3 [2,] 1 2 4 [3,] 1 2 5 [4,] 1 3 4 [5,] 1 3 5 [6,] 1 4 5 [[4]] [,1] [,2] [,3] [,4] [1,] 1 2 3 4 [2,] 1 2 3 5 [3,] 1 2 4 5 [4,] 1 3 4 5 [[5]] [,1] [,2] [,3] [,4] [,5] [1,] 1 2 3 4 5