Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "combinatorics"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:1+1 =



Original Message (ID '129580') By yehuda:
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