#eaten ( game -- n )

Vocabulary

hamurabi.private

Inputs

game

an object

Outputs

n

an object

Definition

USING: accessors kernel math ;

IN: hamurabi.private

: #eaten ( game -- n )
    dup rat-factor>> odd?
    [ [ stores>> ] [ rat-factor>> ] bi / ] [ drop 0 ] if ;