Paste: Experimenting with "Object-oriented" Factor

IN: cricket

TUPLE: innings current-score current-overs target ;

GENERIC: run-rate ( innings -- n )
GENERIC: gap-to-target ( innings -- n )
GENERIC: remaining-overs ( innings -- n )
GENERIC: remaining-runs ( innings -- n )
GENERIC: target-run-rate ( innings -- n )

M: innings run-rate
    [ current-score>> ] [ current-overs>> ] bi / ;

M: innings gap-to-target
    [ target>> ] [ current-score>> ] bi - ;

M: innings remaining-overs
    current-overs>> 50 swap - ;

M: innings target-run-rate
    [ gap-to-target ] [ remaining-overs ] bi / ;