tax-bracket ( tax salary triples -- tax salary )


Vocabulary
taxes.usa

Inputs
taxan object
salaryan object
triplesan object


Outputs
taxan object
salaryan object


Definition
USING: kernel math math.order sequences ;

IN: taxes.usa

: tax-bracket ( tax salary triples -- tax salary )
[ [ tax-bracket-range min ] keep third * + ] 2keep
tax-bracket-range [-] ;