Math People, I'm new to Mathematica so please bear with me. I have a simple problem I want to solve and I'm looking for some ideas to get started on it. I want to simulate 100 tosses of a crooked coin where probability of Heads is 0.6 and Tails is 0.4. After I figure the coin out, I want to move on to crooked dice and crooked card decks. So, really what I'm looking for has more to do with developing a method to simulate the collection of random samples. I looked around in Help and found a promising sentence: "Random[distribution] gives a random number with the specified statistical distribution." Then I found a page here which has some clues: [URL]http://mathworld.wolfram.com/DiscreteDistribution.html[/URL] Unfortunately, I'm weak with math notation so the above page makes little sense to me. So, let me put it to you as simply as I can: I want to define a function that could be called like this: numberOfHeads = coinTosser[infoAboutCoin, numberOfTosses, head] numberOfTails = coinTosser[infoAboutCoin, numberOfTosses, tail] Once I figure out how to write the above function, I could template off of it to build something like this: numberOfOnes = diceRoller[infoAboutThisDie, numberOfRolls, aOne] Do any of you have thoughts on how to approach the writing of the above functions? -Dan