call-random>casep ( seq -- assoc )

Vocabulary

combinators.random.private

Inputs

seq

an object

Outputs

assoc

an object

Definition

USING: arrays kernel math sequences ;

IN: combinators.random.private

: call-random>casep ( seq -- assoc )
    [ length recip ] keep [ 2array ] with map ;