Non-transitive dice game
APL (106 114)

'Computer' 'User'[1+X],'wins with','points',⍨|Z-21×X←11&gt;Z←+/&gt;/⎕←⍉↑{⍵[{?6}¨⍳21]}¨(↓5 6⍴545170074510753⊤⍨18⍴7)[⎕+⍳2]


Explanation:


(↓5 6⍴545170074510753⊤⍨18⍴7)[⎕+⍳2]: The big number is a base-7 representation of the dice. We make a 6x5 matrix containing the values of the dice in the order: 2 3 1 2 3. Ask for user input and add this to the vector 1 2, and select these lines from the matrix. Because the list of dice is shifted, the user now gets the one he selected (on the right) and the computer gets the stronger one. 
{⍵[{?6}¨⍳21]}¨: do 21 rolls for each of these two dice.
⎕←⍉↑: put the rolls in matrix form and output them.
Z←+/&gt;/: get the score of the computer (amount of times the computer's value was higher than the user's)
X←11&gt;Z: set X to whether the user won (if 11 is higher than the computer's score).
'Computer' 'User'[1+X]. X is whether the user won.
'wins with','points',⍨|Z-21×X: Z is the computer's score, so if the computer won display Z, otherwise display 21-Z.