bankroll = 100;
wager = 10;
payoff = 1;
odds = 1/38;
Print[{0, bankroll}]
Do[
bankroll -= wager;
bankroll += wager*payoff*RandomVariate@BernoulliDistribution[odds];
Print[{i, bankroll}];
If[bankroll == 0, Break[]],
{i, 20}]
Sample output:
{0,100}
{1,90}
{2,90}
{3,80}
{4,70}
{5,60}
{6,50}
{7,40}
{8,30}
{9,20}
{10,10}
{11,0}
Good luck! Be careful with Roulette :-)
