fork download
copy 
  1. sapply(1:5,function(x){
  2.     j <- combn(1:5,x) # 把所有的組合列出來
  3.     t(j[,j[1,]%in%1]) # 只留1開頭的結果並轉置
  4. })
Success #stdin #stdout 0.22s 39480KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[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
https://ideone.com/AjvqJm
language:
R (R 3.5.2)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!