(make-change) ( cents coins -- ways )


Vocabulary
rosetta-code.count-the-coins.private

Inputs
centsan object
coinsan object


Outputs
waysan object


Definition
USING: arrays math ranges sequences ;

IN: rosetta-code.count-the-coins.private

:: (make-change) ( cents coins -- ways )
cents 1 + 0 <array> :> ways 1 ways set-first coins [| coin |
coin cents [a..b]
[| j | j coin - ways nth j ways [ + ] change-nth ] each
] each ways last ;