rps.hs

import Control.Monad

data Gesture = Rock | Paper | Scissors deriving (Eq, Show, Read)

instance Ord Gesture where
    a `compare` b
        | a == b = EQ
    Rock `compare` Scissors = GT
    Paper `compare` Rock = GT
    Scissors `compare` Paper = GT
    _ `compare` _ = LT

readGes :: String -> Gesture
readGes = read

main = do
     putStrLn "ROCK PAPER SCISSORS EPIC BATTLE TIEMS"
     putStrLn "-------------------------------------"
     putStrLn ""
     putStrLn "INDICATE NUMBER OF DESTROYERS OF EACH OTHER"
     x <- getLine
     let players = read x::Int
     moves <- replicateM players (putStrLn "What is your move!?!?!" >> getLine)
     putStrLn $ show (maximum $ map readGes moves) ++ " wins"