(casep>quot) ( assoc -- quot )

Vocabulary

combinators.random.private

Inputs

assoc

an object

Outputs

quot

an object

Definition

USING: arrays combinators kernel sequences ;

IN: combinators.random.private

: (casep>quot) ( assoc -- quot )
    dup good-probabilities? [
        [ dup pair? [ prepare-pair ] [ with-drop ] if ] map
        cond>quot
    ] [ bad-probabilities ] if ;