Rock-paper-scissors: Difference between revisions
Content added Content deleted
m (→{{header|Go}}: library changes) |
(added TI-83 BASIC) |
||
Line 1,671: | Line 1,671: | ||
Bye! |
Bye! |
||
</pre> |
</pre> |
||
=={{header|TI-83 BASIC}}== |
|||
<lang ti83b>PROGRAM:RPS |
|||
:{0,0,0}→L1 |
|||
:{0,0,0}→L2 |
|||
:Lbl ST |
|||
:Disp "R/P/S" |
|||
:Disp "1/2/3" |
|||
:Lbl EC |
|||
:Input A |
|||
:If A>3 or A<1 |
|||
:Then |
|||
:Goto NO |
|||
:End |
|||
:randInt(1,3+L1(1)+L1(2)+L1(3)→C |
|||
:If C≤1+L1(1) |
|||
:Then |
|||
:2→B |
|||
:Goto NS |
|||
:End |
|||
:If C>2+L1(2) |
|||
:Then |
|||
:1→B |
|||
:Else |
|||
:3→B |
|||
:End |
|||
:Lbl NS |
|||
:L1(A)+1→L1(A) |
|||
:If A=B |
|||
:Then |
|||
:Disp "TIE GAME" |
|||
:L2(3)+1→L2(3) |
|||
:Goto TG |
|||
:End |
|||
:If (A=1 and B=2) or (A=2 and B=3) or (A=3 and B=1) |
|||
:Then |
|||
:Disp "I WIN" |
|||
:L2(1)+1→L2(1) |
|||
:Else |
|||
:Disp "YOU WIN" |
|||
:L2(2)+1→L2(2) |
|||
:End |
|||
:Lbl TG |
|||
:Disp "PLAY AGAIN?" |
|||
:Input Str1 |
|||
:If Str1="YES" |
|||
:Then |
|||
:ClrHome |
|||
:Goto ST |
|||
:Else |
|||
:Goto EN |
|||
:End |
|||
:Lbl NO |
|||
:ClrHome |
|||
:Pause "PICK 1,2, or 3" |
|||
:ClrHome |
|||
:Goto EC |
|||
:Lbl EN |
|||
:ClrHome |
|||
:Disp "I WON:" |
|||
:Disp L2(1) |
|||
:Disp "YOU WON:" |
|||
:Disp L2(2) |
|||
:Disp "WE TIED:" |
|||
:Disp L2(3) |
|||
:Disp "BYE" |
|||
</lang> |
|||
{{omit from|GUISS}} |
{{omit from|GUISS}} |