classify-from ( next hash seq -- next' hash seq' )

Vocabulary

sequences.extras

Inputs

next	an object
hash	an object
seq	an object

Outputs

next'	an object
hash	an object
seq'	an object

Definition

USING: assocs.extras kernel math sequences ;

IN: sequences.extras

: classify-from ( next hash seq -- next' hash seq' )
    [
        swap [ [ dupd ] ] dip
        [ ?set-once-at [ [ 1 + ] dip ] when ] curry compose
        { } map-as
    ] keepd swap ;