場合の数確かめ、６個のさいころ

６個のさいころの場合をパソコンプログラムでやったことを報告。
==============================================================
「６個のさいころを３つずつ両手に持って投げたとき、左と右とで同じ目が出る確率ってどうなるの？」
要するにこういうことだ。
「６個のさいころを３個ずつ同時に投げるとき、３個ずつの目の組み合わせが同じ確率を求めよ」
このような目の出方は・・・。

ということだ。

　第３段階　さいころを６個、３個ずつ同時に投げて、３個ずつの出た目の組み合わせが同じになる確率。
==============================================================

このような目の出方、計算の結果は996通りだった。これをパソコンで数え上げる






以下パソコンプログラム。

　


===========================================


1!
2!
3! さいころ
4! 完成 2012.6.17
5! filename "6dice.bas"
6!
7! ６個のさいころを同時に投げて
8! ３個ずつの出た目の組み合わせが同じになる場合の数
9!
10 DIM I$(3),J$(3),I1$(3),J1$(3)
20 FOR I1 = 1 TO 6
LET I$(1)=STR$(I1)
FOR I2 = 1 TO 6
LET I$(2)=STR$(I2)

FOR I3 = 1 TO 6
LET I$(3)=STR$(I3)

FOR I4 = 1 TO 6
LET J$(1)=STR$(I4)

FOR I5 = 1 TO 6
LET J$(2)=STR$(I5)

FOR I6 = 1 TO 6
LET J$(3)=STR$(I6)

LET a$=I$(1) & I$(2) & I$(3) & J$(1) &J$(2) & J$(3)

! 文字列保存
FOR I=1 TO 3
LET I1$(I)=I$(I)
NEXT I

FOR I=1 TO 3
LET J1$(I)=J$(I)
NEXT I

! 並べ替え左
FOR I=1 TO 2
FOR J=I+1 TO 3
IF I1$(I)= swap I1$(I),I1$(J)
50 NEXT J
NEXT I
LET AL$=I1$(1) & I1$(2) & I1$(3)

! 並べ替え右
FOR I=1 TO 2
FOR J=I+1 TO 3
IF J1$(I)= swap J1$(I),J1$(J)
60 NEXT J
NEXT I
LET AR$=J1$(1) & J1$(2) & J1$(3)

IF AL$=AR$ THEN 70 ELSE 80

70 LET N=N+1

PRINT N;" "; left$(a$,3) & " " & right$(a$,3)

80 NEXT I6
NEXT I5
NEXT I4
NEXT I3
NEXT I2
NEXT I1

END



実行結果はファイルサイズが大きく長くなってしまうので最初と最後のみ紹介。
1 111 111
2 112 112
3 112 121
4 112 211
5 113 113
6 113 131
7 113 311
8 114 114
9 114 141
10 114 411
11 115 115
12 115 151
13 115 511
14 116 116
15 116 161
16 116 611
17 121 112

（途中省略）
980 656 665
981 661 166
982 661 616
983 661 661
984 662 266
985 662 626
986 662 662
987 663 366
988 663 636
989 663 663
990 664 466
991 664 646
992 664 664
993 665 566
994 665 656
995 665 665
996 666 666

以上、確かに996通り。