good-probabilities? ( assoc -- ? )

Vocabulary

combinators.random.private

Inputs

assoc

an object

Outputs

?

an object

Definition

USING: arrays assocs combinators.short-circuit kernel math
math.order sequences ;

IN: combinators.random.private

: good-probabilities? ( assoc -- ? )
    dup last pair?
    [ keys { [ sum 1 number= ] [ [ 0 1 between? ] all? ] } 1&& ] 
    [
        but-last keys
        { [ sum 0 1 between? ] [ [ 0 1 between? ] all? ] } 1&&
    ] if ;