Hack solution to path graph space leak: evaluate all edge obstacles

2025-10-26 11:38:22 +00:00
parent b8536e2929
commit c55c3e874d
9 changed files with 19608 additions and 399694 deletions
@@ -29,9 +29,11 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 import NewInt
 import Data.Foldable
+import Data.Monoid

 testStringInit :: Universe -> [String]
-testStringInit _ = [] 
+testStringInit u = [show $ foldMap (foldMap (Sum . length . (^. seObstacles))) 
+    $ u ^. uvWorld . cWorld . incGraph]
    -- foldMap prettyShort $ u ^? uvWorld . cWorld . lWorld . machines . ix 0 . mcType . _McProxSensor
 --testStringInit u = foldMap prettyShort $ u ^.. uvWorld . cWorld . lWorld . machines