AtCoder Beginner Contest 470

Contest Result - AtCoder

AtCoder is a programming contest site for anyone from beginners to experts. We hold weekly programming contests online.

atcoder.jp

ABの2完。Cは(1,x)と2のパターンで分けてうまいことやればできるかな？とか考えてたけど、解けませんでした

Fizz

import Control.Monad (forM_)
main :: IO ()
main = do
  n <- readLn

  forM_ [1..n] $ \i -> do
    putStrLn $ if i `mod` 3==0 then "Fizz" else show i

Monocolor

import Data.List (group, sort)
import Control.Monad (forM)

main :: IO ()
main = do
  n <- readLn :: IO Int
  c_l <- map read . words <$> getLine :: IO [Int]

  print $ length c_l - maximum (elemCountOrd c_l)

elemCountOrd :: (Ord a) => [a] -> [Int]
elemCountOrd = map (\l -> length l ) . group . sort