Work on perhaps replacing FGL with incidence vectors

2025-10-20 13:07:52 +01:00
parent b2fd0543dd
commit c250448d57
6 changed files with 1821 additions and 1798 deletions
@@ -126,8 +126,11 @@ pointTowardsImpulse a b w =
 --

 pairsToIncGraph :: Set.Set (Point2,Point2) 
-    -> (UV.Vector Point2, V.Vector [(Int,SimpleEdge)])
-pairsToIncGraph pairs = (inodes,incgraph)
+    -> (UV.Vector Point2
+        , V.Vector [(Int,SimpleEdge)]
+        , [(Int,Int)]
+    )
+pairsToIncGraph pairs = (inodes,incgraph,undefined)
  where
    incgraph = V.generate (length im) (\i -> im ^?! ix i)
    im = IM.fromListWith (<>) . fmap toedge $ Set.toList pairs