提出 #36230995

---

ソースコード 拡げる

import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List
import qualified Data.Vector as V
import qualified Data.Vector.Mutable as VM

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
    [n, m] <- getIntList
    ab <- replicateM m $ do
        [a, b] <- getIntList
        return (a-1, b-1)
    
    let result = V.create $ do
            vec <- VM.replicate n []
            forM_ ab $ \(a, b) -> do
                VM.modify vec (a :) b
                VM.modify vec (b :) a
            let f xs = (length xs) : (sort (map succ xs))
            forM_ [0..n-1] $ \i -> do
                VM.modify vec f i
            return vec
    
    forM_ [0..n-1] $ \i -> do
        let l = result V.! i
        putStrLn . unwords $ map show l

提出情報

コンパイルエラー

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

ジャッジ結果