reduce-r ( list identity quot: ( obj1 obj2 -- obj ) -- result )


Vocabulary
sequences.extras

Definition
USING: kernel locals sequences ;

IN: sequences.extras

:: reduce-r
( list identity quot: ( obj1 obj2 -- obj ) -- result )
list empty?
[ identity ]
[ list rest identity quot reduce-r list first quot call ]
if ; inline recursive