Commit 1eb4f421 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] without weights.

parent 346cf040
......@@ -55,7 +55,8 @@ cLouvain ms = do
writeInput :: FilePath -> Map (Int, Int) Double -> IO ()
writeInput fp ns = writeFile fp (unlines ns')
where
ns' = map (\((n1,n2), w) -> show n1 <> " " <> show n2 <> " " <> show w) (toList ns)
ns' = map (\((n1,n2), _) -> show n1 <> " " <> show n2) (toList ns)
--ns' = map (\((n1,n2), w) -> show n1 <> " " <> show n2 <> " " <> show w) (toList ns)
louvainNode :: [Text] -> LouvainNode
louvainNode [n1,n2] = LouvainNode (read $ T.unpack n1) (read $ T.unpack n2)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment