| Author |
Comment/Response |
yehuda
|
 11/15/12 2:06pm
Here is a solution
It generate all possible outcomes (Tuples) and the filter it according to your criteria
sol=Cases[Tuples[Range[6], 5], x_ /; Sort[Last /@ Tally[x]] == {1, 2, 2}];
Length[sol]
returns 1800 as expected
enjoy
yehuda
URL: , |
|
