each-unique-product ( ... a b quot: ( ... i j -- ... ) -- ... )

Vocabulary

project-euler.085.private

Inputs

a	an object
b	an object
quot	a quotation with stack effect ( ... i j -- ... )

Outputs

None

Definition

USING: kernel ranges sequences ;

IN: project-euler.085.private

:: each-unique-product
    ( ... a b quot: ( ... i j -- ... ) -- ... )
    a b [a..b]
    [| i | i b [a..b] [| j | i j quot call ] each ] each ;
    inline