結果
問題 | No.1335 1337 |
ユーザー |
![]() |
提出日時 | 2021-10-22 14:36:27 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,384 bytes |
コンパイル時間 | 521 ms |
コンパイル使用メモリ | 153,088 KB |
最終ジャッジ日時 | 2024-11-15 01:49:03 |
合計ジャッジ時間 | 1,006 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、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:18:1: error: [GHC-87110] Could not load module ‘Data.Map.Strict’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 18 | import qualified Data.Map.Strict as Map | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:21:1: error: [GHC-87110] Could not load module ‘Data.Set’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 21 | import qualified Data.Set as Set | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
moduleMainwhereimportData.BoolimportControl.ApplicativeimportData.OrdimportControl.Monad.StateimportqualifiedControl.MonadasCMimportqualifiedControl.Monad.STasSTimportqualifiedData.ArrayasAimportqualifiedData.BitsasBitsimportqualifiedData.ByteString.CharasBSimportqualifiedData.CharasCharimportqualifiedData.ComplexasCompimportqualifiedData.FoldableasFoldableimportqualifiedData.FunctionasFuncimportqualifiedData.IORefasIOimportqualifiedData.ListasLimportqualifiedData.Map.StrictasMapimportqualifiedData.MaybeasMayimportqualifiedData.ProxyasProxyimportqualifiedData.SetasSetimportqualifiedData.VectorasVimportqualifiedData.Vector.MutableasVMmod' = 1000000007gs::IOStringgs=getLinegn=map (read . BS.unpack) . BS.words <$> BS.getLine ::IO[Int]------------------------------------------------------ main=interact$('0':)main = doa <- BS.unpack<$>BS.getLinelet m=zip['0'..'9']as <- BS.unpack<$>BS.getLineputStrLn$map(\x->if May.isNothing (L.lookup x m) then x else May.fromJust(L.lookup x m))s