aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Rock-paper-scissors/Rascal/rock-paper-scissors-1.rascal Normal file
View file

@ -0,0 +1,20 @@
import Prelude;
rel[str, str] whatbeats = {<"Rock", "Scissors">, <"Scissors", "Paper">, <"Paper", "Rock">};
list[str] ComputerChoices = ["Rock", "Paper", "Scissors"];
str CheckWinner(a, b){
if(b == getOneFrom(whatbeats[a]))
return a;
elseif(a == getOneFrom(whatbeats[b]))
return b;
else return "Nobody";
}
public str RPS(human){
computer = getOneFrom(ComputerChoices);
x = if(human == "Rock") "Paper"; elseif(human == "Paper") "Scissors"; else "Rock";
ComputerChoices += x;
return "Computer played <computer>. <CheckWinner(human, computer)> wins!";
}

29
Task/Rock-paper-scissors/Rascal/rock-paper-scissors-2.rascal Normal file
View file

@ -0,0 +1,29 @@
rascal>RPS("Rock")
str: "Computer played Rock. Nobody wins!"
rascal>RPS("Rock")
str: "Computer played Rock. Nobody wins!"
rascal>RPS("Rock")
str: "Computer played Scissors. Rock wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"
rascal>RPS("Rock")
str: "Computer played Rock. Nobody wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"
rascal>RPS("Rock")
str: "Computer played Paper. Paper wins!"