Abstract Algebra: A Computational Approach 有个 function ssub。取 {0,1…,N} 的 K-element subset。
⎕IO←0
2 ssub 4
0 1
0 2
1 2
0 3
1 3
2 3
⎕vr 'ssub'
∇ ssub←{
[1] ⍝ LISTS ALL K-ELEMENT SUBSETS OF ⍳N. ORIGIN DEPENDENT.
[2] S←derr∧/(⍺≥0),(⍺≤⍵),(1=⍴⍺),(1=⍴⍵),(N=⌊N←,⍵),K=⌊K←,⍺
[3] K{
[4] ∨/⍺=0 1:⍺((!,⊣)⍴∘⍳⊢)⍵
[5] X←(⍳N)∘.>⍨⎕IO⌷⍉T←1+(⍺-1)∇ N←⍵-1
[6] ((,X)/(⍴,X)⍴⍳N),(+/X)⌿T
[7] }N
[8] }
这样可以写成
ts←{(⍵∊⍨+/⍺[I])/[0]I←2 ssub≢⍺}