解法
N の奇偶によって判別できます。
コード
import Control.Applicative import Control.Monad import Data.List main = do n <- read <$> getLine putStrLn $ if n `mod` 2 == 0 then "Blue" else "Red"
N の奇偶によって判別できます。
import Control.Applicative import Control.Monad import Data.List main = do n <- read <$> getLine putStrLn $ if n `mod` 2 == 0 then "Blue" else "Red"