Rock-paper-scissors: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(Added a Red answer) |
||
Line 4,820: | Line 4,820: | ||
rascal>RPS("Rock") |
rascal>RPS("Rock") |
||
str: "Computer played Paper. Paper wins!"</lang> |
str: "Computer played Paper. Paper wins!"</lang> |
||
=={{header|Red}}== |
|||
<lang Rebol> |
|||
Red [Purpose: "Implement a rock-paper-scissors game with weighted probability"] |
|||
prior: ["r" "p" "s"] |
|||
win: ["p" "s" "r"] |
|||
forever [ |
|||
print "choose rock: r, paper: p, or scissors: s" |
|||
pchoice: ask "" |
|||
unless any [pchoice = "r" pchoice = "p" pchoice = "s"] [break] |
|||
cchoice: random/only prior |
|||
pindex: index? find prior pchoice |
|||
cindex: index? find win cchoice |
|||
case [ |
|||
pchoice = cchoice [print "tie"] |
|||
pindex = cindex [print "you lose"] |
|||
true [print "you win"] |
|||
] |
|||
append prior win/:pindex ;adds what would have beaten player |
|||
] |
|||
</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |