Confirm generalised tree composition works

2022-06-11 17:25:03 +01:00
parent 51cd9315ad
commit 8b4b6de0c0
2 changed files with 12 additions and 4 deletions
@@ -36,10 +36,11 @@ layoutLevelFromSeed i seed = do
    appendFile "log/attemptedSeeds" $ show seed ++ "\n"
    let g = mkStdGen seed
    let treecluster = evalState initialRoomTree g
-        (strs,tc) = composeTree' treecluster
-    appendFile "log/TreeCluster" ("Seed: "++ show seed)
-    mapM_ (appendFile "log/treeCluster" . ('\n':))  strs
-    mapM_ putStrLn strs
+    tc <- composeAndLog $ cmpToMT treecluster
+    ----    (strs,tc) = composeTree' treecluster
+    ----appendFile "log/TreeCluster" ("Seed: "++ show seed)
+    ----mapM_ (appendFile "log/treeCluster" . ('\n':))  strs
+    ----mapM_ putStrLn strs
    --putStrLn "Room cluster layout:"
    --putStrLn $ drawTreeSubLabelling $ fmap snd treecluster
    --let rmtree = inorderNumberTree $ expandTree $ fmap fst treecluster