8 lines
178 B
Text
8 lines
178 B
Text
procedure lcomb(L,i) #: list combinations
|
|
local j
|
|
|
|
if i < 1 then fail
|
|
suspend if i = 1 then [!L]
|
|
else [L[j := 1 to *L - i + 1]] ||| lcomb(L[j + 1:0],i - 1)
|
|
|
|
end
|