結果
問題 | No.488 四角関係 |
ユーザー |
![]() |
提出日時 | 2017-07-13 15:29:43 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 693 bytes |
コンパイル時間 | 182 ms |
コンパイル使用メモリ | 149,760 KB |
最終ジャッジ日時 | 2024-11-15 04:45:41 |
合計ジャッジ時間 | 607 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:1:1: error: [GHC-87110] Could not load module ‘Data.IntMap’. It is a member of the hidden package ‘containers-0.6.8’. Use -v to see a list of the files searched for. | 1 | import qualified Data.IntMap as M | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
importqualifiedData.IntMapasMimportData.ListimportControl.Monad(!?) im v = M.findWithDefault [] v immain = do[n,_] <- map read . words <$> getLineabs <- map (map read . words) . lines <$> getContentslet g = buildG absprint (shikaku n g)buildG = foldr (\[a,b] acc -> M.insertWith (++) a [b] (M.insertWith (++) b [a] acc)) M.emptyshikaku n g = length $ dov1 <- [0 .. n-1]v2 <- [v1+1 .. n-1]v3 <- [v2+1 .. n-1]v4 <- [v3+1 .. n-1]let ws1 = intersect (g!?v1) [v2,v3,v4]let ws2 = intersect (g!?v2) [v1,v3,v4]let ws3 = intersect (g!?v3) [v1,v2,v4]let ws4 = intersect (g!?v4) [v1,v2,v3]guard $ map length (group (sort (concat [ws1,ws2,ws3,ws4]))) == [2,2,2,2]