http://reference.wolfram.com/mathematica/ref/RandomChoice.html
にきれいな答えが出てるね。