8 lines
286 B
Text
8 lines
286 B
Text
% ...
|
|
PermsLen = Perms.length,
|
|
P1Len = P1.length,
|
|
A2 = new_array(PermsLen,P1Len), bind_vars(A2,0),
|
|
foreach(I in 1..PermsLen, J in 1..P1Len, Perms[I] = P1[J])
|
|
A2[I,J] := 1
|
|
end,
|
|
println(missing12=[Perms[I] : I in 1..PermsLen, sum([A2[I,J] : J in 1..P1Len])=0]).
|