Print populated settlements only during simulation

ftomassetti · Sep 6, 2014 · 48f7ca2 · 48f7ca2
1 parent fc8643d
commit 48f7ca2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/civs/core.clj b/src/civs/core.clj
@@ -60,7 +60,7 @@
           (println "  bands       " (n-bands-alive current-game))
           (println "  tribes      " (n-tribes-alive current-game))
           (println "  chiefdoms   " (n-chiefdoms-alive current-game))
-          (println "  settlements " (.size (settlements current-game)))
+          (println "  settlements " (.size (populated-settlements current-game)))
           (println ""))))
       {:facts (deref facts-by-turn), :game-snapshots (deref game-snapshots)}))
 

diff --git a/src/civs/model/core.clj b/src/civs/model/core.clj
@@ -247,6 +247,9 @@
       []
       s)))
 
+(defn populated-settlements [game]
+  (filter #(not (ghost-city? game (.id %))) (settlements game)))
+
 (defn n-ghost-cities [game]
   (.size (filter #(ghost-city? game (.id %)) (settlements game))))