I am having a difficult reading the lists in the output, would there be an easier way??
x = 0; s = 0;
p5 := If[Random[] <= .5, 1, 0]
p6 := If[Random[] <= .6, 1, 0]
p := If[0 < p6, {x += 1, s += 1}, {np, s += 1}]
np := If[p5 == 1, {p, s += 1}, {np, s += 1}]
score = Table[{s, Style[p, Bold, Red]}, 10]
output
{{0,{{{{{{{{1,1},2},3},4},5},6},7},8}},{8,{2,9}},{9,{{{3,10},11},12}},{12,{{{4,13},14},15}},{15,{{{{{{{{{5,16},17},18},19},20},21},22},23},24}},{24,{{{{6,25},26},27},28}},{28,{{{7,29},30},31}},{31,{8,32}},{32,{{{9,33},34},35}},{35,{10,36}}}
sorry I can't get the red to appear in the post