1ae
@verb #9682:"stats2" none none none rxdo #9682
@program #9682:"stats2" none none none
"p -> {0 [Bob], 1 [Jack]}"
"w -> # of wins for Bob"
"l -> # of wins for Jack"
{?p = 0, ?w = 0, ?l = 0} = args
if (w + l > 9)
  return player:tell("Probability Bob will win: " + tostr(tofloat(w) / tofloat(w + l) * 100.0) + "%")
endif
return this:stats2((win = random(10) <= 3) ? 0 | !p, win && !p ? w + 1 | w, win && p ? l + 1 | l)
.

0