結果
問題 | No.610 区間賞(Section Award) |
ユーザー |
![]() |
提出日時 | 2017-12-10 19:31:31 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,199 bytes |
コンパイル時間 | 496 ms |
コンパイル使用メモリ | 169,344 KB |
最終ジャッジ日時 | 2024-11-30 11:22:20 |
合計ジャッジ時間 | 1,247 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、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:46:24: error: [GHC-87543] Ambiguous occurrence ‘BC.getLine’. It could refer to either ‘BC.getLine’, imported qualified from ‘Data.ByteString’ at Main.hs:8:1-38, or ‘BC.getLine’, imported qualified from ‘Data.ByteString.Char8’ at Main.hs:7:1-44. | 46 | readInt = parseInt <$> BC.getLine | ^^^^^^^^^^ Main.hs:49:26: error: [GHC-87543] Ambiguous occurrence ‘BC.getLine’. It could refer to either ‘BC.getLine’, imported qualified from ‘Data.ByteString’ at Main.hs:8:1-38, or ‘BC.getLine’, imported qualified from ‘Data.ByteString.Char8’ at Main.hs:7:1-44. | 49 | readInts = parseInts <$> BC.getLine | ^^^^^^^^^^
ソースコード
moduleMainwhereimportControl.MonadimportControl.ApplicativeimportData.MaybeimportData.ListimportqualifiedText.PrintfimportqualifiedData.ByteString.CharasBCimportqualifiedData.ByteStringasBCimportData.Array.UnboxedUArray,(!)importqualifiedData.Array.UnboxedasUArrayimportDebug.Trace------------------------------------------main::IO()main = don <- readIntss <- reverse <$> readIntsts <- readIntslet pl = UArray.array (1, n) $ zip ts [1..]res = sort $ solve (n+1) ss plmapM_ print ressolve::Int->Int->UArrayIntInt->Intsolve ub ss pl = f ub sswheref _ [] = []f ub (x:xs') =let place = pl ! x inif pl ! x < ubthen x : f (pl ! x) xs'else f ub xs'------------------------------------------{- Int input -}parseInt::BCByteString->IntparseInt = fst . fromJust . BC.readIntparseInts::BCByteString->IntparseInts = map parseInt <$> BC.wordsreadInt::IOIntreadInt = parseInt <$> BC.getLinereadInts::IOIntreadInts = parseInts <$> BC.getLine{- Double Formatting -}doubleFmt::Double->StringdoubleFmt = Text.Printf.printf "%.12f"