Simplify MetaTrees

2022-06-13 10:25:06 +01:00
parent 768b86d393
commit 31e7f4290e
6 changed files with 97 additions and 84 deletions
@@ -36,7 +36,8 @@ layoutLevelFromSeed i seed = do
    appendFile "log/attemptedSeeds" $ show seed ++ "\n"
    let g = mkStdGen seed
    let treecluster = evalState initialRoomTree (g,0)
-    tc <- composeAndLog [0] (\str -> putStrLn str >> appendFile "log/treeCluster" str) treecluster
+    --tc <- composeAndLog [0] (\str -> putStrLn str >> appendFile "log/treeCluster" str) treecluster
+    let tc = composeTree treecluster
    ----    (strs,tc) = composeTree' treecluster
    ----appendFile "log/TreeCluster" ("Seed: "++ show seed)
    ----mapM_ (appendFile "log/treeCluster" . ('\n':))  strs