プログラム |
ステップ数 |
内容 |
P9 |
3 |
tanh GSBP9
|
P8 |
12 |
× MRF +/- 10^x = FRAC × 10 = INT
|
P7 |
26 |
Min06 AC Min00 Min1F LBL0 MR06 x=0 GOTO9 log INT 10^x M-06 log × MR00 ISZ 10^x M+1F = M+1F GOTO0 LBL9 " AR1F "
|
P6 |
11 |
1 M+15 Min12 RAN# × 9 = INT M+12 10^x
|
P5 |
10 |
MR00 MinF MR02 GSBP8 ÷ 3 = FRAC RND1
|
P4 |
4 |
2 M+00 GSBP9
|
P3 |
180 |
Min00 x=F "Toitoi" x=F GSBP4 MRF X←→M06 x=F "Chanta" x=F GSBP4 2 x>=F GOTO7 MR12 X←→MF x=F x=0 MR10 GSBP8 Min04 6 x>=F 2 M+F MR10 GSBP8 M+04 MR04 x=0 GOTO7 "Pinfu" GSBP9 ISZ LBL7 1 MinF MR15 x=F "Tenho" x=F GSBP4 MR16 M+16 M+16 log RND4 FRAC x=0 "3renko" x=0 GSBP4 MR11 GSBP8 Min04 8 M+F M-06 MR11 GSBP8 M+04 MR04 x=F GOTO5 x=0 "Tanyao" x=0 DSZ x=0 GSBP4 MR16 RND8 log x=F "Ittsu" x=F GSBP4 MR18 MinF MR17 x=F MR19 x=F GOTO5 MR17 x=F x=0 MR19 x=F "Iipeiko" x=F ISZ x=F GSBP9 MR14 MinF MR11 GSBP8 x=0 GOTO3 "Dora" GSBP9 ISZ GOTO3 LBL5 8 Min00 "*YAKUMAN*" GSBP9 LBL3
|
P2 |
34 |
4 Min1F M+06 MR19 ABS log INT M-1F 10^x Min00 M-19 M-19 M-19 MR19 x>=0 GOTO9 1 M+F M+1F MR00 M+10 M+00 × 89 % + M+19 LBL9 MR1F ABS M-06 MR00
|
P1 |
18 |
IND MR05 Min19 Min11 Min16 M+16 M+16 AC MinF Min06 Min10 GSBP2 Min17 GSBP2 Min18 GSBP2 X←→M19
|
P0 |
212 |
AC Min01 Min02 Min13 8 Min00 LBL0 GSBP6 M+01 GSBP6 M+02 DSZ GOTO0 GSBP6 MR01 GSBP7 Min15 X←→M12 Min14 LBL0 1 MinF X←→M05 x=F M+05 MR13 IND M+05 MR05 1/x INT x=F MR12 x>=F " AR12 " x>=F PAUSE x>=F PAUSE x=0 GSBP1 x=0 "Ron□ AR12 " x=0 GOTO3 GSBP6 M-13 MR13 IND M-05 LBL7 "■ AR14 ■□ AR08" IND GOTO5 GSBP1 x=0 GOTO5 1 Min17 9 Min00 LBL8 GSBP5 M-17 DSZ GOTO8 MR00 Min16 LBL8 ISZ GSBP5 Min19 + X←→M16 X←→M1F Min18 = 10^x Min10 6 M-F x=F GOTO4 M-10 MR17 x=0 Min10 MR1F x=0 GOTO8 M-18 M-19 M+10 MR18 x=0 Min10 MR19 x=0 Min10 MR06 X←→MF × % M-10 MR10 x>=F GOTO8 Min06 MR00 Min04 1 M-04 GOTO8 LBL1 MR01 GSBP7 HLT ABS INT Min04 x=0 GSBP1 x=0 GOTO5 MR04 MinF MR01 GSBP8 x=0 GOTO7 LBL4 MR04 Min12 - 1 = 10^x IND M-05 Min13 GOTO0 LBL5 "Tsumo□ AR12 " LBL3 MR11 GSBP7 MR02 GSBP7 GSBP1 GSBP3 MR00 + x^2 + 2 = × 80 × MR06 × MR05 M+05 3 M-05 MR05 = XD "#" GSBP9 " AR08 / AR09 " GSBP9 GSBP9 x~ INT "Ave□#"
|