結果

問題 No.43 野球の試合
コンテスト
ユーザー ducktail
提出日時 2018-07-13 14:46:23
言語 Haskell
(9.10.1)
結果
WA  
実行時間 -
コード長 1,187 bytes
コンパイル時間 3,506 ms
コンパイル使用メモリ 201,760 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-10-08 05:02:41
合計ジャッジ時間 4,506 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 4 WA * 3
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff # 

import Control.Applicative ((<$>))
import Control.Monad (replicateM)
import Data.List (partition, foldl')
import Data.Vector.Unboxed (Vector, (!), (//))
import qualified Data.Vector.Unboxed as V

main :: IO ()
main = do
  n <- readLn
  solve n <$> replicateM n getLine >>= print

solve :: Int -> [String] -> Int
solve n ss = rnk $ foldl' (\p (i, j) -> if p ! i <= p ! 0 && p ! j <= p ! 0 then
                                          if p ! i < p ! j then V.accum (+) p [(i, 1)]
                                          else V.accum (+) p [(j, 1)]
                                        else p
                          ) pv' ois
  where pis = do
          i <- [0..n-2]
          j <- [i+1..n-1]
          case ss !! i !! j of
           'o' -> return (i, 1)
           'x' -> return (j, 1)
           _ -> []
        pv = V.accum (+) (V.replicate n 0) pis :: Vector Int
        uks = do
          i <- [0..n-2]
          j <- [i+1..n-1]
          if ss !! i !! j == '-' then return (i, j) else []
        (zis, ois) = partition (\(i,_) -> i == 0) uks
        pv' = V.accum (+) pv [(0, length zis)]
        rnk v = (+1) $ foldl' (\r i -> if v ! i > v ! 0 then r+1 else r) 0 [1..n-1]
0