import System.Environment (getArgs)
import Data.List (sort, nub)
 
 
remdup :: Eq a => [a] -> [a]
remdup [] = []
remdup (x:xs) = x : remdup (filter (/= x) xs)
 
type Graph = [[Int]]
 
-- Depth-first search to explore connected nodes
dfs :: Graph -> Int -> [Int] -> [Int] -> [Int]
dfs graph node visited acc =
  if node `elem` visited
    then acc
    else let connectedNodes = filter (\n -> graph !! node !! n == 1) [0..length graph - 1]
             updatedVisited = node : visited
             updatedAcc = node : acc
         in foldr (\n acc' -> dfs graph n updatedVisited acc') updatedAcc connectedNodes
 
-- Function to find connected components in the graph
connectedComponents :: Graph -> [[Int]]
connectedComponents graph =
  let nodes = length graph
      initialVisited = replicate nodes False
      go [] _ connected = connected
      go (node:nodes') visited connected =
        if visited !! node
          then go nodes' visited connected
          else let component = dfs graph node [] []
                   updatedVisited = foldr (\n v -> v ++ [if n `elem` component then True else False]) visited [0..nodes - 1]
               in go nodes' updatedVisited (component : connected)
  in reverse $ go [0..nodes - 1] initialVisited []
 
-- Function to parse input into adjacency matrix
parseInput :: String -> Graph
parseInput input = map (map read . words) (lines input)
 
 
-- Main function
main :: IO ()
main = do
  args <- getArgs
  case args of
    [inputFile] -> do
      contents <- readFile inputFile
      let graph = parseInput contents
          components = connectedComponents graph
          uniqueComponents = nub (map remdup (map sort components))  -- Sort nodes within each component
      putStrLn "Connected components:"
      mapM_ print uniqueComponents
    _ -> putStrLn "Usage: ./executable input_file"

aW1wb3J0IFN5c3RlbS5FbnZpcm9ubWVudCAoZ2V0QXJncykKaW1wb3J0IERhdGEuTGlzdCAoc29ydCwgbnViKQoKCnJlbWR1cCA6OiBFcSBhID0+IFthXSAtPiBbYV0KcmVtZHVwIFtdID0gW10KcmVtZHVwICh4OnhzKSA9IHggOiByZW1kdXAgKGZpbHRlciAoLz0geCkgeHMpCgp0eXBlIEdyYXBoID0gW1tJbnRdXQoKLS0gRGVwdGgtZmlyc3Qgc2VhcmNoIHRvIGV4cGxvcmUgY29ubmVjdGVkIG5vZGVzCmRmcyA6OiBHcmFwaCAtPiBJbnQgLT4gW0ludF0gLT4gW0ludF0gLT4gW0ludF0KZGZzIGdyYXBoIG5vZGUgdmlzaXRlZCBhY2MgPQogIGlmIG5vZGUgYGVsZW1gIHZpc2l0ZWQKICAgIHRoZW4gYWNjCiAgICBlbHNlIGxldCBjb25uZWN0ZWROb2RlcyA9IGZpbHRlciAoXG4gLT4gZ3JhcGggISEgbm9kZSAhISBuID09IDEpIFswLi5sZW5ndGggZ3JhcGggLSAxXQogICAgICAgICAgICAgdXBkYXRlZFZpc2l0ZWQgPSBub2RlIDogdmlzaXRlZAogICAgICAgICAgICAgdXBkYXRlZEFjYyA9IG5vZGUgOiBhY2MKICAgICAgICAgaW4gZm9sZHIgKFxuIGFjYycgLT4gZGZzIGdyYXBoIG4gdXBkYXRlZFZpc2l0ZWQgYWNjJykgdXBkYXRlZEFjYyBjb25uZWN0ZWROb2RlcwoKLS0gRnVuY3Rpb24gdG8gZmluZCBjb25uZWN0ZWQgY29tcG9uZW50cyBpbiB0aGUgZ3JhcGgKY29ubmVjdGVkQ29tcG9uZW50cyA6OiBHcmFwaCAtPiBbW0ludF1dCmNvbm5lY3RlZENvbXBvbmVudHMgZ3JhcGggPQogIGxldCBub2RlcyA9IGxlbmd0aCBncmFwaAogICAgICBpbml0aWFsVmlzaXRlZCA9IHJlcGxpY2F0ZSBub2RlcyBGYWxzZQogICAgICBnbyBbXSBfIGNvbm5lY3RlZCA9IGNvbm5lY3RlZAogICAgICBnbyAobm9kZTpub2RlcycpIHZpc2l0ZWQgY29ubmVjdGVkID0KICAgICAgICBpZiB2aXNpdGVkICEhIG5vZGUKICAgICAgICAgIHRoZW4gZ28gbm9kZXMnIHZpc2l0ZWQgY29ubmVjdGVkCiAgICAgICAgICBlbHNlIGxldCBjb21wb25lbnQgPSBkZnMgZ3JhcGggbm9kZSBbXSBbXQogICAgICAgICAgICAgICAgICAgdXBkYXRlZFZpc2l0ZWQgPSBmb2xkciAoXG4gdiAtPiB2ICsrIFtpZiBuIGBlbGVtYCBjb21wb25lbnQgdGhlbiBUcnVlIGVsc2UgRmFsc2VdKSB2aXNpdGVkIFswLi5ub2RlcyAtIDFdCiAgICAgICAgICAgICAgIGluIGdvIG5vZGVzJyB1cGRhdGVkVmlzaXRlZCAoY29tcG9uZW50IDogY29ubmVjdGVkKQogIGluIHJldmVyc2UgJCBnbyBbMC4ubm9kZXMgLSAxXSBpbml0aWFsVmlzaXRlZCBbXQoKLS0gRnVuY3Rpb24gdG8gcGFyc2UgaW5wdXQgaW50byBhZGphY2VuY3kgbWF0cml4CnBhcnNlSW5wdXQgOjogU3RyaW5nIC0+IEdyYXBoCnBhcnNlSW5wdXQgaW5wdXQgPSBtYXAgKG1hcCByZWFkIC4gd29yZHMpIChsaW5lcyBpbnB1dCkKCgotLSBNYWluIGZ1bmN0aW9uCm1haW4gOjogSU8gKCkKbWFpbiA9IGRvCiAgYXJncyA8LSBnZXRBcmdzCiAgY2FzZSBhcmdzIG9mCiAgICBbaW5wdXRGaWxlXSAtPiBkbwogICAgICBjb250ZW50cyA8LSByZWFkRmlsZSBpbnB1dEZpbGUKICAgICAgbGV0IGdyYXBoID0gcGFyc2VJbnB1dCBjb250ZW50cwogICAgICAgICAgY29tcG9uZW50cyA9IGNvbm5lY3RlZENvbXBvbmVudHMgZ3JhcGgKICAgICAgICAgIHVuaXF1ZUNvbXBvbmVudHMgPSBudWIgKG1hcCByZW1kdXAgKG1hcCBzb3J0IGNvbXBvbmVudHMpKSAgLS0gU29ydCBub2RlcyB3aXRoaW4gZWFjaCBjb21wb25lbnQKICAgICAgcHV0U3RyTG4gIkNvbm5lY3RlZCBjb21wb25lbnRzOiIKICAgICAgbWFwTV8gcHJpbnQgdW5pcXVlQ29tcG9uZW50cwogICAgXyAtPiBwdXRTdHJMbiAiVXNhZ2U6IC4vZXhlY3V0YWJsZSBpbnB1dF9maWxlIg==

MCAwIDAg

0 0 0