count-outcomes ( #sides rolls -- counts )


Vocabulary
rosetta-code.dice7

Inputs
#sidesan object
rollsan object


Outputs
countsan object


Definition
USING: assocs kernel math.statistics ranges sequences sorting ;

IN: rosetta-code.dice7

: count-outcomes ( #sides rolls -- counts )
histogram swap [1..b] [ over [ 0 or ] change-at ] each
sort-keys values ;