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


Vocabulary
project-euler.085.private

Inputs
aan object
ban object
quota quotation with stack effect ( ... i j -- ... )


Outputs
None

Definition


:: 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