fair-counts? ( counts error -- ? )

Vocabulary

rosetta-code.dice7

Inputs

counts	an object
error	an object

Outputs

?

an object

Definition

USING: kernel math math.vectors sequences ;

IN: rosetta-code.dice7

: fair-counts? ( counts error -- ? )
    [
        [ ] [ sum ] [ length ] tri
        [ / v-n vabs ] [ drop v/n ] 2bi
    ] dip [ < ] curry all? ;