sdx23

import Data.List (elemIndices,(\\))

----------------------------------------------------------------------
-- main: some io and organisational stuff

main :: IO ()
main = do
    -- read adjacency matrix file to matrix :: [[Int]]
    matrixfile  <- readFile "RandomGraph.txt"
    let matrix  = map (map (read :: String -> Int) . words) $ lines matrixfile