結果
問題 | No.447 ゆきこーだーの雨と雪 (2) |
ユーザー | Ysmr_Ry |
提出日時 | 2016-12-23 20:06:36 |
言語 | Haskell (9.8.2) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,710 bytes |
コンパイル時間 | 1,384 ms |
コンパイル使用メモリ | 150,656 KB |
最終ジャッジ日時 | 2024-05-08 12:54:50 |
合計ジャッジ時間 | 1,784 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) Main.hs:13:1: error: [GHC-87110] Could not load module ‘Data.Map’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 13 | import qualified Data.Map as M | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
{-# LANGUAGE OverloadedStrings #-} import Control.Applicative ((<$>)) import Control.Arrow (second) import Control.Monad import Control.Monad.State import Data.Char (ord) import Data.List (elemIndices, sortBy) import Data.Function (on) import Data.Monoid ((<>)) import Data.Maybe (fromJust) import qualified Data.Array as A import qualified Data.ByteString.Char8 as B import qualified Data.Map as M type Submission = (B.ByteString, Int) type AcCnt = M.Map Int Int main :: IO () main = do n <- readLn ls <- map read . words <$> getLine t <- readLn subs <- replicateM t $ do [name, p] <- B.words <$> B.getLine return (name, ord (B.head p)-ord 'A') let upds = map (second A.elems) $ M.toList $ evalState (proc subs ls n) $ M.fromList $ zip [0..n-1] $ repeat 1 forM_ (zip [1..] (sortBy (comp $ map fst subs) upds)) $ \(i, (name, xs)) -> do putStr $ show i ++ " " B.putStr $ name mapM_ (putStr . (" "++) . show) xs putStrLn $ " " ++ show (sum xs) proc :: [Submission] -> [Double] -> Int -> State AcCnt (M.Map B.ByteString (A.Array Int Int)) proc [] _ _ = return M.empty proc ((name, p):xs) ls n = do acCnt <- get let pts = evalState (proc xs ls n) (M.insert p (acCnt M.! p+1) acCnt) pts' = if name `M.notMember` pts then M.insert name (A.listArray (0, n-1) $ repeat 0) pts else pts return $ M.insert name (pts' M.! name A.// [(p, floor $ 50*(ls!!p)+50*(ls!!p)/(0.8+0.2*fromIntegral (acCnt M.! p)))]) pts' comp :: [B.ByteString] -> (B.ByteString, [Int]) -> (B.ByteString, [Int]) -> Ordering comp subs (lName, l) (rName, r) = (compare `on` sum) r l <> idxL `compare` idxR where idxL = last $ elemIndices lName $ subs idxR = last $ elemIndices rName $ subs