cost+ ( cost1 cost2 -- total-cost )

Vocabulary

format-using

Inputs

cost1	an object
cost2	an object

Outputs

total-cost

an object

Definition

USING: arrays kernel math sequences ;

IN: format-using

: cost+ ( cost1 cost2 -- total-cost )
    [ first3 ] bi@ roll prepend [ 2nip + dup 3 - ] dip 3array ;