map-binpack ( items quot: ( item -- weight ) #bins -- bins )

Vocabulary

math.binpack

Inputs

items	a sequence
quot	a quotation with stack effect ( item -- weight )
#bins	number of bins

Outputs

bins	packed bins

Word description

Packs a sequence of items into the specified number of bins, using the quotation to determine the weight.

Definition

USING: assocs kernel math.binpack.private sequences ;

IN: math.binpack

: map-binpack
    ( items quot: ( item -- weight ) #bins -- bins )
    [ dupd map zip ] dip (binpack) ; inline