Rosetta Code

Rock-paper-scissors: Difference between revisions

Page Discussion

Rock-paper-scissors (view source)

Revision as of 07:52, 29 May 2012

27 bytes added ,  12 years ago
→‎{{header|Rascal}}
Line 1,578:
<lang rascal>import Prelude;
 
rel[str, str] whatbeats = {<"Rock", "SciccorsScissors">, <"SciccorsScissors", "Paper">, <"Paper", "Rock">};
 
list[str] orderComputerChoices = ["Rock", "Paper", "SciccorsScissors"];
 
str CheckWinner(a, b){
Line 1,591:
 
public str RPS(human){
computer = getOneFrom(orderComputerChoices);
x = if(human == "Rock") "Paper"; elseif(human == "Paper") "SciccorsScissors"; else "Rock";
ComputerChoices += x;
order = order + x;
return "Computer played <computer>. <CheckWinner(human, computer)> wins!";
}</lang>
Line 1,604:
 
rascal>RPS("Rock")
str: "Computer played SciccorsScissors. Rock wins!"
 
rascal>RPS("Rock")
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/192212"