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