finish ( game -- )

Vocabulary

hamurabi.private

Inputs

game

an object

Outputs

None

Definition

USING: accessors formatting io kernel ;

IN: hamurabi.private

: finish ( game -- )
    dup #percent-died
    "IN YOUR 10-YEAR TERM OF OFFICE, %d PERCENT OF THE\n" printf
    "POPULATION STARVED PER YEAR ON AVERAGE, I.E., A TOTAL OF"
    print
    dup total-deaths>> "%d PEOPLE DIED!!\n" printf
    "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" print
    dup #acres-per-person "%d ACRES PER PERSON\n" printf nl
    leave nl "SO LONG FOR NOW." print ;