produce-sum ( id pred quot -- sum )


Vocabulary
project-euler.255.private

Inputs
idan object
predan object
quotan object


Outputs
suman object


Definition
USING: kernel math ;

IN: project-euler.255.private

: produce-sum ( id pred quot -- sum )
[ 0 ] 2dip [ [ dip swap ] curry ] [ [ dip + ] curry ] bi*
while ; inline