rankings ( histogram method: ( min max -- rank ) -- assoc )

Vocabulary

math.statistics.private

Inputs

histogram	an object
method	a quotation with stack effect ( min max -- rank )

Outputs

assoc

an object

Definition

USING: assocs kernel math sorting ;

IN: math.statistics.private

: rankings
    ( histogram method: ( min max -- rank ) -- assoc )
    [ sort-keys 0 swap ] dip [ [ swapd dupd + ] ] dip
    [ keep -rot ] curry compose H{ } assoc-map-as nip ; inline