simon/the-great-game
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'develop' of github.com:simon-brooke/the-great-game into develop

Browse source
This commit is contained in:
Simon Brooke 2024-04-08 22:37:36 +01:00
parent b807b21f8e 71cfda093d
commit 9490c9fd3e
12 changed files with 106622 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
docs/codox/Building_on_microworld.html Normal file
View file

File diff suppressed because one or more lines are too long

36
docs/codox/Economy.html Normal file
View file

File diff suppressed because one or more lines are too long

46
docs/codox/Genetic-buildings.html Normal file
View file

File diff suppressed because one or more lines are too long

8
docs/codox/Modelling_trading_cost_and_risk.html Normal file
View file

File diff suppressed because one or more lines are too long

32
docs/codox/Naming-of-characters.html Normal file
View file

File diff suppressed because one or more lines are too long

17
docs/codox/On-dying.html Normal file
View file

File diff suppressed because one or more lines are too long

41
docs/codox/Sandbox.html Normal file
View file

File diff suppressed because one or more lines are too long

37
docs/codox/Sexual-dimorphism.html Normal file
View file

File diff suppressed because one or more lines are too long

11
docs/codox/cc.journeyman.the-great-game.proving.core.html Normal file
View file

File diff suppressed because one or more lines are too long

6
docs/codox/cc.journeyman.the-great-game.proving.sketches.html Normal file
View file

File diff suppressed because one or more lines are too long

106356
resources/test/sample-npcs-20200408.edn Normal file
View file

File diff suppressed because it is too large Load diff

24
src/cc/journeyman/the_great_game/proving/sketches.clj Normal file
View file

@ -0,0 +1,24 @@
(ns cc.journeyman.the-great-game.proving.sketches
"Code that's useful for exploring, but probably not part of the final
product, and if it is, will end up somewhere else."
(:require [wherefore-art-thou.core :refer [*genders*]]))
(defn happy-cell?
"True if all NPCs at `c` (assumed to be a MicroWorld-style cell) are of
a happy disposition."
[c]
(when (:npcs c)
(every? #(> (:disposition %) 2) (:npcs c))))
(defn couple-cell?
[c]
(let [npcs (:npcs c)]
(when
(every? pos?
(map (fn [g]
(count (filter #(and (= g (:gender %))
(#{:ancestor :citizen} (:goal %))
(pos? (:disposition %))) npcs)))
(keys *genders*)))
c)))