[OPTIM] removing list

dbe08169 · Alexandre Delanoë · b440928e · dbe08169 · dbe08169
Commit dbe08169 authored May 31, 2021 by Alexandre Delanoë
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

install install +2 -2

FGL.hs src/Graph/FGL.hs +1 -1

No files found.
--- a/install
+++ b/install
 #!/bin/bash
-
-stack install --profile --test
+# 
+stack install --profile # --test
--- a/src/Graph/FGL.hs
+++ b/src/Graph/FGL.hs
@@ -59,7 +59,7 @@ degree g n = sum
           $ DGI.lneighbors g n

 vcount :: DGIP.Gr a b -> Double
-vcount = fromIntegral . List.length . List.nub . nodes
+vcount = fromIntegral . Set.size . Set.fromList . nodes


 -- | TODO tests, optim and use IGraph library, fix IO ?