結果
問題 | No.583 鉄道同好会 |
ユーザー | pekempey |
提出日時 | 2017-10-28 15:36:15 |
言語 | Haskell (9.10.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,462 bytes |
コンパイル時間 | 379 ms |
コンパイル使用メモリ | 150,016 KB |
最終ジャッジ日時 | 2024-11-22 03:25:17 |
合計ジャッジ時間 | 791 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:7: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. | 7 | import Data.Set (Set, fromList, toList, insert, member, empty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Main.hs:8: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. | 8 | import qualified Data.Set as S | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ソースコード
importControl.ApplicativeimportControl.MonadimportControl.Monad.STimportDebug.TraceimportData.ListhidinginsertimportData.ArrayimportData.SetSet,fromList,toList,insert,member,emptyimportqualifiedData.SetasSimportData.Array.STimportqualifiedData.ByteString.CharasBmain::IO()main = solve <$> (map readInt . B.words <$> B.getLine) <*> (map (map readInt . B.words) . B.lines <$> B.getContents) >>= putStrLn . yesnoreadInt::BByteString->IntreadInt = maybe undefined fst . B.readIntyesno::Bool->Stringyesno True = "YES"yesno False = "NO"solve::Int->Int->Boolsolve [n, m] [] = Truesolve [n, m] es = let g = toArray n esdeg = map length . elems $ gin if (all even) deg || (length . filter odd) deg == 2then let reachable = dfs ((head . head) es) S.empty gin reachable == (fromList . concat) eselse FalsetoArray::Int->Int->ArrayIntInttoArray n es = runST $ dog <- newArray (0, n-1) [] :: ST s (STArray s Int [Int])forM_ es $ \[x, y] -> doreadArray g x >>= writeArray g x . (y:)readArray g y >>= writeArray g y . (x:)freeze gdfs::Int->SetInt->ArrayIntInt->SetIntdfs u vis g = foldl' f (insert u vis) (g ! u)wheref::SetInt->Int->SetIntf vis v| member v vis = vis| otherwise = dfs v vis g