_ãã®è¨äºã¯2013å¹´ã®æ å ±ãªãªã³ããã¯å¤å£ã»ããã¼ã®çºè¡¨ã®ããã« åæ© Haskellã«ã¯ç«¶æããã°ã©ãã³ã°ã«ä½¿ããCoolãªæ©è½ã沢山ããã¾ãã ãã¿ã¼ã³ãããããã¬ã¼ã¹ãã«ãããã¿ã¼ã³ã¬ã¼ããæè»ãªé¢æ°åæãªã©ã§ãã ä¸ã¯AtCoder Regular Contest #14ã®Båé¡ã«å¯¾ããåçã§ãã å帰ãå ´ååããããªãã·ã³ãã«ã«æ¸ãã¾ãã import Control.Monad import Control.Applicative import Data.List main :: IO () main = do n <- readLn (w:ws) <- replicateM n getLine putStrLn $ case check [w] ws True of Nothing -> "DRAW" Just True -> "WIN" Just False -> "LO
{{#tags}}- {{label}}
{{/tags}}