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:2+4 =



Original Message (ID '129491') By Bill Simpson:
In[1]:= dice=Map[IntegerDigits[#,6,5]+1&,Range[0,6^5-1]]; Count[dice,{x_,x_,x_,y_,z_}/;x≠y&&x≠z&&y≠z] Out[3]= 120 In[4]:= Count[dice,{x_,x_,y_,y_,y_}/;x≠y] Out[4]= 30