update-births ( game -- game )


Vocabulary
hamurabi.private

Inputs
gamean object


Outputs
gamean object


Definition
USING: accessors kernel math ;

IN: hamurabi.private

: update-births ( game -- game )
dup #births
[ >>births ] [ [ + ] curry change-total-births ]
[ [ + ] curry change-population ] tri ;