提出 #54346173

---

ソースコード 拡げる

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TypeApplications #-}
{-# HLINT ignore "Use lambda-case" #-}
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}

module Main where

import Control.Monad (replicateM)
import Data.Bits
import qualified Data.ByteString.Char8 as BC
import qualified Data.Char as C
import qualified Data.List as L

main :: IO ()
main =
  do
    s <- getLine

    let u = length $ L.filter C.isUpper s
    let l = length $ L.filter C.isLower s

    putStrLn if u > l then L.map C.toUpper s else L.map C.toLower s

readInputInts :: IO [Int]
readInputInts = L.unfoldr (BC.readInt . BC.dropWhile C.isSpace) <$> BC.getLine

提出情報

コンパイルエラー

app/Main.hs:10:1: warning: [-Wunused-imports]
    The import of ‘Control.Monad’ is redundant
      except perhaps to import instances from ‘Control.Monad’
    To import instances alone, use: import Control.Monad()
   |
10 | import Control.Monad (replicateM)
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

app/Main.hs:11:1: warning: [-Wunused-imports]
    The import of ‘Data.Bits’ is redundant
      except perhaps to import instances from ‘Data.Bits’
    To import instances alone, use: import Data.Bits()
   |
11 | import Data.Bits
   | ^^^^^^^^^^^^^^^^

ジャッジ結果