0

Please consider:

list1={0,0,0,0,0,0};
list2={1,1,1,1,1,1};

How can I access to the result of

Permutations[Flatten[{list1, list2}]]
(* {{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1}, 
 {0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1}, 
 {0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1}, 
  {0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1}, and so on*)

But by Tuples?

Inzo Babaria
  • 1,513
  • 7
  • 11

1 Answers1

2

Not very efficient but straightforward

list1={0,0,0,0,0,0};
list2={1,1,1,1,1,1};
perm=Sort[Permutations[Flatten[{list1,list2}]]];
tupl=Sort[Select[Tuples[{0,1},12],Count[#,0]==6&]];
perm==tupl

True

Vitaliy Kaurov
  • 73,078
  • 9
  • 204
  • 355