map-product ( ... seq quot: ( ... elt -- ... n ) -- ... n )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

n	an integer

Word description

Like

map product

, but without creating an intermediate sequence.

Definition

USING: kernel math sequences ;

IN: sequences.extras

: map-product
    ( ... seq quot: ( ... elt -- ... n ) -- ... n )
    [ 1 ] 2dip [ [ swap ] ] dip [ dip * ] curry compose each ;
    inline