(distribute-buckets) ( buckets pair keys -- )

Vocabulary

combinators.private

Inputs

buckets	an object
pair	an object
keys	an object

Outputs

None

Definition

USING: kernel math sequences sets ;

IN: combinators.private

: (distribute-buckets) ( buckets pair keys -- )
    dup t eq?
    [ drop [ swap adjoin ] curry each ] [
        [ [ 2dup ] dip hashcode pick length rem rot nth adjoin ]
        each 2drop
    ] if ;