2015-06-13から1日間の記事一覧

AtCoder Regular Contest 040

A - 床塗 'R' と 'C' を数えるだけ。 import Data.Functor ((<$>)) main :: IO () main = putStrLn =<< solve <$> (concat <$> tail <$> lines <$> getContents) solve :: String -> String solve xs = case length (filter (=='R') xs) `compare` length (f…