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