Anonymous user
Rock-paper-scissors: Difference between revisions
GP
(GP) |
|||
Line 1,212:
</lang>
=={{header|PARI/GP}}==
<lang parigp>contest(rounds)={
my(v=[1,1,1],wins,losses); \\ Laplace rule
for(i=1,rounds,
my(computer,player,t);
t=random(v[1]+v[2]+v[3]);
if(t<v[1], computer = "R",
if(t<v[1]+v[2], computer = "P", computer = "S")
);
print("Rock, paper, or scissors?");
t = Str(input());
if(#t,
player=Vec(t)[1];
if(player <> "R" && player <> "P", player = "S")
,
player = "S"
);
if (player == "R", v[2]++);
if (player == "P", v[3]++);
if (player == "S", v[1]++);
print1(player" vs. "computer": ");
if (computer <> player,
if((computer == "R" && player = "P") || (computer == "P" && player = "S") || (computer == "S" && player == "R"),
print("You win");
losses++
,
print("I win");
wins++
)
,
print("Tie");
)
);
[wins,losses]
};
contest(10)</lang>
=={{header|Perl 6}}==
| |||