8 lines
125 B
APL
8 lines
125 B
APL
|
comb←{
|
|||
|
|
⍺{
|
|||
|
|
0=⍺:⊂⍬
|
|||
|
|
0=≢⍵:⍬
|
|||
|
|
((⊃⍵),¨(⍺-1)∇r),⍺∇r←1↓⍵
|
|||
|
|
}⍳⍵
|
|||
|
|
}
|