Submission #70769992

---

Source Code Expand

{-# OPTIONS_GHC -Wall #-}
{-# OPTIONS_GHC -Wname-shadowing #-} -- 内側のスコープの値と同じ名前が外側のスコープにあるとき警告する

import Control.Monad
import qualified Data.ByteString.Char8 as BS
import Data.Char
import Data.List
import qualified Data.IntSet as IS

readInts :: IO [Int]
readInts = unfoldr (BS.readInt . BS.dropWhile isSpace) <$> BS.getLine
readDoubles :: IO [Double]
readDoubles = map read . words . BS.unpack <$> BS.getLine

main :: IO ()
main = do
  x <- readLn :: IO Int
  n <- readLn :: IO Int
  ws <- readInts
  q <- readLn :: IO Int
  ps <- replicateM q readLn :: IO [Int]
  putStr $ unlines $ map show $ solve IS.empty x ws ps

solve im w ws [] = []
solve im w ws (p:ps)
  | IS.member p im = wSub : solve (IS.delete p im) wSub ws ps
  | otherwise = wAdd : solve (IS.insert p im) wAdd ws ps
  where
    wSub = w - ws !! (p-1)
    wAdd = w + ws !! (p-1)
  

Submission Info

Compile Error

Configuration is affected by the following files:
- cabal.project
- cabal.project.freeze
- cabal.project.local

app/Main.hs:13:1: warning: [GHC-40910] [-Wunused-top-binds]
    Defined but not used: ‘readDoubles’
   |
13 | readDoubles = map read . words . BS.unpack <$> BS.getLine
   | ^^^^^^^^^^^

app/Main.hs:18:3: warning: [GHC-40910] [-Wunused-matches]
    Defined but not used: ‘n’
   |
18 |   n <- readLn :: IO Int
   |   ^

app/Main.hs:24:1: warning: [GHC-38417] [-Wmissing-signatures]
    Top-level binding with no type signature:
      solve :: Num t => IS.IntSet -> t -> [t] -> [Int] -> [t]
   |
24 | solve im w ws [] = []
   | ^^^^^

app/Main.hs:24:7: warning: [GHC-40910] [-Wunused-matches]
    Defined but not used: ‘im’
   |
24 | solve im w ws [] = []
   |       ^^

app/Main.hs:24:10: warning: [GHC-40910] [-Wunused-matches]
    Defined but not used: ‘w’
   |
24 | solve im w ws [] = []
   |          ^

app/Main.hs:24:12: warning: [GHC-40910] [-Wunused-matches]
    Defined but not used: ‘ws’
   |
24 | solve im w ws [] = []
   |            ^^
Configuration is affected by the following files:
- cabal.project
- cabal.project.freeze
- cabal.project.local

Judge Result