結果
問題 | No.1131 Deviation Score |
ユーザー | sanao10000 |
提出日時 | 2021-11-04 19:48:16 |
言語 | Haskell (9.8.2) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 2,782 bytes |
コンパイル時間 | 215 ms |
コンパイル使用メモリ | 156,288 KB |
最終ジャッジ日時 | 2024-11-15 01:53:31 |
合計ジャッジ時間 | 1,424 ms |
ジャッジサーバーID (参考情報) |
judge3 / 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:19: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. | 19 | import qualified Data.Map.Strict as Map | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:20: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. | 20 | import qualified Data.Set as Set | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
LANGUAGELANGUAGELANGUAGELANGUAGELANGUAGEimportControl.ApplicativeimportqualifiedControl.MonadasCMimportControl.Monad.IdentityimportqualifiedControl.Monad.STasSTimportControl.Monad.StateimportqualifiedData.ArrayasAimportqualifiedData.Array.IOasAIimportqualifiedData.Array.STasASTimportqualifiedData.ByteString.BuilderasBBimportqualifiedData.ByteString.CharasBSimportqualifiedData.CharasChimportqualifiedData.ListasLimportqualifiedData.Map.StrictasMapimportqualifiedData.SetasSetimportqualifiedData.TextasTimportqualifiedData.Text.IOasTimportqualifiedData.Vector.UnboxedasVUimportqualifiedData.Vector.UnboxedasVUMimportqualifiedData.Vector.GenericasVGimportPreludehidingprintcin::Sanaoa=>IOacin = sanao <$> BS.getLine------------------------------------------------------main = dos <- cin @Doublex<-cin @[Double]let avg = sum x/sputStr$unlines$map(show.floor.(-)50.(/2).(-)avg)x-------------------------------------------------------type Moji = BS.ByteStringprint::Showa=>a->IO()print x = BS.putStrLn $ BS.pack $ show xclassSanaoawheresanao::Moji->ainstanceSanaoMojiwheresanao = idinstanceSanaoIntwheresanao x = case BS.readInt x ofNothing -> error "ここはInt"Just (a, _) -> ainstanceSanaoDoublewheresanao x = case BS.readInt x ofNothing -> error "ここはDouble"Just (a, _) -> realToFrac ainstanceSanaoMojiwheresanao = BS.wordsinstanceSanaoa=>Sanaoawheresanao = map sanao . BS.wordsinstanceSanaoIntIntwheresanao = (\[a, b] -> (a, b)) . map sanao . BS.wordsinstanceSanaoIntIntIntwheresanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.wordsinstanceSanaoIntIntIntIntwheresanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.wordsinstanceSanaoDoubleDoublewheresanao = (\[a, b] -> (a, b)) . map sanao . BS.wordsinstanceSanaoDoubleDoubleDoublewheresanao = (\[a, b, c] -> (a, b, c)) . map sanao . BS.wordsinstanceSanaoDoubleDoubleDoubleDoublewheresanao = (\[a, b, c, d] -> (a, b, c, d)) . map sanao . BS.wordsinstanceSanaoMojiIntwheresanao = (\[a, b] -> (a, sanao b)) . BS.wordsinstanceSanaoMojiIntIntwheresanao = (\[a, b, c] -> (a, sanao b, sanao c)) . BS.wordsinstanceSanaoIntMojiwheresanao = (\[a, b] -> (sanao a, b)) . BS.wordsinstanceSanaoMojiDoublewheresanao = (\[a, b] -> (a, sanao b)) . BS.wordsinstanceSanaoDoubleMojiwheresanao = (\[a, b] -> (sanao a, b)) . BS.words