{-# OPTIONS_GHC -O2 -funbox-strict-fields #-} import Control.Applicative won = "Won" lost = "Lost" draw = "Drew" -- ぐー, ちょき, ぱーをそれぞれ 0, 1, 2とし、1つ目に自分のが2つ目に相手のが与えられます。 solve :: Int -> Int -> String solve 0 1 = won solve 1 2 = won solve 2 0 = won solve x y | x == y = draw solve _ _ = lost main :: IO () main = do [n,k] <- (map read . words) <$> getLine putStrLn $ solve n k