結果
問題 | No.1729 ~サンプルはちゃんと見て!~ 16進数と8進数(1) |
ユーザー |
![]() |
提出日時 | 2021-11-05 22:48:44 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 2,916 bytes |
コンパイル時間 | 141 ms |
コンパイル使用メモリ | 151,424 KB |
最終ジャッジ日時 | 2024-11-15 01:53:48 |
合計ジャッジ時間 | 450 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、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:23: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. | 23 | import qualified Data.Set as Set | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:24: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. | 24 | import qualified Data.Map.Strict as Map | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
LANGUAGELANGUAGELANGUAGELANGUAGELANGUAGEimportControl.ApplicativeimportControl.Monad.StateimportqualifiedNumericasNuimportControl.Monad.IdentityimportqualifiedControl.MonadasCMimportqualifiedData.ListasLimportqualifiedControl.Monad.STasSTimportqualifiedData.ByteString.CharasBSimportqualifiedData.ArrayasAimportqualifiedData.Array.IOasAIimportqualifiedData.CharasChimportqualifiedData.TextasTimportqualifiedData.Text.IOasTimportqualifiedData.Array.STasASTimportqualifiedData.ByteString.BuilderasBBimportqualifiedData.SetasSetimportqualifiedData.Map.StrictasMapimportPreludehidingprint------------------------------------------------------main = dos <- getLinelet c=L.group$L.sort$Nu.showOct (fst$head$Nu.readHex s) ""maxi=maximum$zipWith const (map length c) (map head c)putStr$unwords$words$L.intersperse ' ' $map snd$filter(\(x,y)->x==maxi)$zip(map length c)(map head c)-------------------------------------------------------cin::Sanaoa=>IOacin=sanao<$>BS.getLinetype 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