Rock-paper-scissors is a game for two players. Each player chooses an action without knowledge ofthe other’s choice. If the players choose the same action then there is a draw. Otherwise the winneris determined by the following rules: paper beats rock, rock beats scissors, and scissors beats paper. you are going to make a playable Rock-Paper-Scissors game and consider multiplayer tournaments.• Please make it a single Haskell file • Please put comments in your code to show which question you are answering with each piece ofcode. • You may create auxiliary functions if you like. You may use library functions from Haskell’sstandard library.• Please limit your line lengths to 100 characters max.Please use the following two data types which you can copy-and-paste into your code.data Action = Rock | Paper | Scissors deriving (Eq, Show)data Outcome = Player1Win | Player2Win | Draw deriving ShowAction represents a player’s chosen action and Outcome represents the outcome of playing a game - If the input is invalid then print out the outcome of the whole game (see above).-If the input is valid then check to find out who is the winner and print an appropriatemessage, then recurse with the updated tally of player 1 and player 2 wins. 1. Define a function check :: Action -> Action -> Outcome which calculates the outcome of agame where the first argument is the action of player 1 and the second argument is the action ofplayer 2.For example, check Rock PaperPlayer2Win and check Paper Paper = Draw.2. Define a function parse :: String -> Maybe Action which will be used to parse user input forthe choice of an action. Return Nothing if the input string is not valid, otherwise parse stringsinto actions based solely on the first letter, e.g., parse "P" = Just Paper.=3. Recall the I/O functions in Haskell for inputting a string from the user and outputting a string tothe console:getLine :: IO StringputStrLn :: String -> IO ()Define a recursive function play :: Integer -> Integer -> 10 () which takes two inputs:the number of wins so far for player 1 and the number of wins so far for player 2. The game shouldproceed as follows:• Print a message asking player 1 to make an action;• Read input from the user and parse it;• If the input is invalid according to the parser, print out the outcome of the game, i.e., who hadthe most wins and is therefore the overall winner, or whether overall it is a draw, and thenreturn.• If the input is valid then:- Print a message asking player 2 to make an action;Read input from the user and parse it;

In this question we have to write a HASKELL code for the Rock, Paper, Scissors game for two players…

Answered: ock-paper-scissors is a game for two…

Database System Concepts

7th Edition

ISBN:9780078022159

Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan

Chapter1: Introduction

Section: Chapter Questions

Problem 1PE

See similar textbooks

Related questions

Concept explainers

Question

Rock-paper-scissors is a game for two players. Each player chooses an action without knowledge of
the other’s choice. If the players choose the same action then there is a draw. Otherwise the winner
is determined by the following rules: paper beats rock, rock beats scissors, and scissors beats paper. you are going to make a playable Rock-Paper-Scissors game and consider multiplayer tournaments.

• Please make it a single Haskell file
• Please put comments in your code to show which question you are answering with each piece of
code.
• You may create auxiliary functions if you like. You may use library functions from Haskell’s
standard library.
• Please limit your line lengths to 100 characters max.
Please use the following two data types which you can copy-and-paste into your code.
data Action = Rock | Paper | Scissors deriving (Eq, Show)
data Outcome = Player1Win | Player2Win | Draw deriving Show
Action represents a player’s chosen action and Outcome represents the outcome of playing a game

- If the input is invalid then print out the outcome of the whole game (see above).
-If the input is valid then check to find out who is the winner and print an appropriate
message, then recurse with the updated tally of player 1 and player 2 wins.

1. Define a function check :: Action -> Action -> Outcome which calculates the outcome of a
game where the first argument is the action of player 1 and the second argument is the action of
player 2.
For example, check Rock Paper
Player2Win and check Paper Paper = Draw.
2. Define a function parse :: String -> Maybe Action which will be used to parse user input for
the choice of an action. Return Nothing if the input string is not valid, otherwise parse strings
into actions based solely on the first letter, e.g., parse "P" = Just Paper.
=
3. Recall the I/O functions in Haskell for inputting a string from the user and outputting a string to
the console:
getLine :: IO String
putStrLn :: String -> IO ()
Define a recursive function play :: Integer -> Integer -> 10 () which takes two inputs:
the number of wins so far for player 1 and the number of wins so far for player 2. The game should
proceed as follows:
• Print a message asking player 1 to make an action;
• Read input from the user and parse it;
• If the input is invalid according to the parser, print out the outcome of the game, i.e., who had
the most wins and is therefore the overall winner, or whether overall it is a draw, and then
return.
• If the input is valid then:
- Print a message asking player 2 to make an action;
Read input from the user and parse it;

Expert Solution

Step by step

Solved in 3 steps with 2 images

SEE SOLUTION Check out a sample Q&A here

Knowledge Booster

Learn more about

Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.

Similar questions