feed-people ( game -- game )


Vocabulary
hamurabi.private

Inputs
gamean object


Outputs
gamean object


Definition
USING: accessors io kernel math ;

IN: hamurabi.private

: feed-people ( game -- game )
"HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? " input
over stores>> dupd > "stores" and check-error
[ drop feed-people ]
[ [ >>feed ] [ [ - ] curry change-stores ] bi ] if nl ;