next-multiple ( a multiple -- next )

Vocabulary

project-euler.255.private

Inputs

a	an object
multiple	an object

Outputs

next

an object

Definition

USING: kernel math ;

IN: project-euler.255.private

: next-multiple ( a multiple -- next )
    [ [ 1 - ] dip /i 1 + ] keep * ;