Anonymous user
Rock-paper-scissors: Difference between revisions
→{{header|Haskell}}
Line 645:
deriving (Show, Eq)
genrps (r,p,s) = fmap rps rand
Line 667:
c <- genrps (r,p,s)
putStrLn ("Player: " ++ show h ++ " Computer: " ++ show c)
putStrLn (
else if beats c h then "player loses\n"
else "draw\n")
let rr = if h == Rock then r+1 else r
pp = if h == Paper then p+1 else p
| |||