test-distribution ( #sides #trials quot error -- )

Vocabulary

rosetta-code.dice7

Inputs

#sides	an object
#trials	an object
quot	an object
error	an object

Outputs

None

Definition

USING: kernel prettyprint sequences ;

IN: rosetta-code.dice7

:: test-distribution ( #sides #trials quot error -- )
    #sides #trials quot replicate count-outcomes
    :> outcomes outcomes . outcomes error fair-counts?
    "Random enough" "Not random enough" ? . ; inline