〓 Mathematica 四 〓
レス数が900を超えています。1000を超えると表示できなくなるよ。
0943132人目の素数さん
2010/07/06(火) 00:48:31トランプのカードを
{H,1},{H,2}.....,{H,13}(ハート)
{S,1},{S,2}.....,{S,13}(スペード)
{D,1},{D,2}.....,{D,13}(ダイヤ)
{C,1},{C,2}.....,{C,13}(クラブ)
で表す。
(1)52枚のカードからランダムに5枚選び出す関数を書け。
(2)5枚の手札の(ポーカーにおける)点を下の表に従って与える関数を書け。
(3)(1)を1000回繰り返したときの平均点数を求めよ。
(表)
ワンペア 5点 ツーペア 10点 スリーカード 15点
ストレート 20点 フラッシュ 25点 フルハウス 30点
フォーカード 40点 ストレート・フラッシュ 50点
ロイヤル・ストレート・フラッシュ 100点
レス数が900を超えています。1000を超えると表示できなくなるよ。