In[]:=
fruits=
,
,
,
,
Out[]=
,
,
,
,
brokenfruitroller[fruits_]:=Module[{roll=RandomChoice[fruits,3]},Grid[{{Row[#]},{Style[Part[{"Winner","Try Again","Looser"},Length[Union[#]]],"Subsection"]}}]&[roll]]
In[]:=
brokenfruitroller[fruits]
Out[]=
Try Again |
