update-deaths ( game -- game )

Vocabulary

hamurabi.private

Inputs

game

an object

Outputs

game

an object

Definition

USING: accessors kernel math ;

IN: hamurabi.private

: update-deaths ( game -- game )
    dup #starved
    [ >>deaths ] [ '[ _ + ] change-total-deaths ]
    [ '[ _ - ] change-population ] tri ;