Re: The two dices
- To: mathgroup at smc.vnet.net
- Subject: [mg54506] Re: The two dices
- From: nafod40 <noneya at business.com>
- Date: Tue, 22 Feb 2005 04:23:03 -0500 (EST)
- Organization: Penn State University, Center for Academic Computing
- References: <cvc8dt$qte$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Antoine wrote:
>
> dice[]:=Random[Integer, {1, 6}]
>
> n=250;
> theThrows = Table[dice[] + dice[], {n}];
> theStats = Table[Count[theThrows, i], {i, 2, 12}]
Checking...this works OK in Mathematica 4.1
Odd one...