I have a list with 25 numbers:
list = Range[1, 25];
What would be a simple code that could generate 44 new lists with 15 numbers each one of them? Also need to check if there is no list of repeated and that the sum total of all lists, the elements have been used also, if possible.
Below I am describing my attempts:
Here I determine "manually" an initial list with a basis of 9 numbers:
B1 = {01, 03, 06, 09, 11, 12, 16, 21, 23}
As my list contains 25 numbers, here I get the 16 remaining numbers:
O1 = Complement[list, B1]
Here I have tried to mix the remaining numbers:
Dif1 = RandomSample[O1]
Here I create the first three lists with 15 numbers:
J1 = Join[B1, Part[Dif1, {1, 2, 3, 4, 5, 6}]]
Length[J1]
J2 = Join[B1, Part[Dif1, {7, 8, 9, 10, 11, 12}]]
Length[J2]
J3 = Join[B1, Part[Dif1, {13, 14, 15, 16, 1, 2}]]
Length[J3]
Here I see the use of numbers in the list are also used:
Soma = Tally[Sort[Join[J1, J2, J3]]]
I am evolving my way, but I am observing that is not very productive.