subtract-overhead ( {oldtime,n} overhead -- {newtime,n} )

Vocabulary

wordtimer

Inputs

{oldtime,n}	an object
overhead	an object

Outputs

{newtime,n}

an object

Definition

USING: arrays kernel math sequences ;

IN: wordtimer

: subtract-overhead ( {oldtime,n} overhead -- {newtime,n} )
    [ first2 ] dip swap [ * - ] keep 2array ;