find-max-amounts ( -- amounts )

Vocabulary

rosetta-code.knapsack-unbounded

Inputs

None

Outputs

amounts

an object

Definition

USING: kernel math math.order sequences ;

IN: rosetta-code.knapsack-unbounded

: find-max-amounts ( -- amounts )
    weights volumes [
        [ max-weight swap / ] [ max-volume swap / ] bi* min
        >integer
    ] 2map ;